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SECTION I 
IOTR023tl3 f n0N 

Tills raanrnl. describes a software system which integrates the design 
principles from optimal control theory and those from classical control 
theory to allow a user to design and analyze a control system* The inter- 
active and very modular approach used here permits synthesis to proceed 
in exactly that sequence of steps which the user deems most appropriate 
for the particular problem* Figure 1 illustrates the block structure which 
forms the backbone of the design system. Each block is a separate executable 
file which performs the specific task noted in the figure. The user inter- 
action with each block is minimal; in some cases, all that is required is 
input of two file names; in other cases, additional data is needed. The 
file system structure allows the different blocks to communicate information 
to one another* At each block, a "problem fide 11 is read and/or written. 

The problem files are unformatted binary files (to conserve disk space) 

Hhlch store all intermediate results . The user accesses the problem files 
via a service routine, which selectively reads and formats to the line 
printer any user- requested elements in a given problem ^ile* 

There are two types of blocks shown in Fig. la. The first type (Blocks 1 
5> 6, 9, 10) implements various aspects of the optimal control design 
process using software adapted from Ref. 1 . All output from these blocks 
is stored in problem files. The second type of block (Blocks 2, 7; 8) 
provides links between the optimal control design and the classical control 
analysis techniques. These blocks produce TRFN files, which can then be 
used in the TRFN/USA142 software, parts of which are indicated in Fig. lb. 

For further information concerning use of this software, see Ref* 2. The 
typical sequence of steps in designing an optimal control system is to 
begin with Block 1 at the top of Fig. la and work clockwise through all the 
blocks, making the appropriate indicated excursions to the blocks in Fig. 1b 
to use the classical control analysis methods. Blocks can be repeated to 
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Figure lb* 
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cycle a design. Some blocks (such as the sensitivity block, for example) 
can be bypassed altogether. 

This software was written in FORTRAN IV and developed on a PDP 11 /10 
under the RT-11 operating system. The system requires a single job monitor 
The service routine and all the problem files reside on the DXO: disk; 
the executable files for the blocks reside on the DX1 : disk. To execute a 
given block, simply type 

RUN DX1 ;BLOCXX 

where XX = 01, 02, ... 10. To run the service routine, type 

RUN DXO:SERVIC 

This manual is organized to correspond with the blocks' — each of the 
sections describes a single block (and the service routine), inclining 
purpose, inputs required, computations performed and output, applicable 
restrictions, example input and output. A simple two state, two control 
point example is used, to illustrate software use throughout* The appendix 
contains the source code listing for each mainline and subroutine in the 
optimal control package. For information on the theory and computational 
methods used in this software package, see Ref. 3. 
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SECTION II 


Purpose: 


Input: 



FBOBIiEM DEFINITION — • BLOCK 1 

This block accepts the dimensions, mnemonics and non-zero 
elements of all the matrices needed to define the problem’s 
plant, outputs, and measurements in state vector form; it 
must always be accessed before attempting to solve any 
optimal control problem. 


The general state vector form assumed for the optimal control 
problem is stated below: 


X 

= 

Fx + Gu + Fw, x(o) = X Q 

z 

a 

Hx + v 

y 

=3 


where x 


state vector 

u 


control vector 

■ w 


process noise vector 

z 


measurement vector 

V 


measurement noise vector 

y 


output vector 


a) 

( 2 ) 

( 3 ) 


The particular form of the problem used here is shown in 
block diagram form in Fig. 2. The non- zero elements of the 
matrices shown must be input at this point in the problem, 
as well as certain dimensions, mnemonics, and file names.. 
Notice that the state vector is comprised of two parts: the 

shaping filter states (x^,) and the controlled element states 
(x^). The output vector, y,’ also has two components: those 

k 




I 



Test Points 


t s input 

Shaping Filter 
Outputs, y s 


H+3 


t v Measurement 
Noise 


Measurement 

Noise 
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t 0L Open -Loop 
Function 
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Measuremenr 

Outputs 

yM 
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0. 


Additional 

Outputs 

yo 
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-H± 
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Measurements 

z ■ 
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Outputs 

y 


Plant Measurements and Outputs 


Problem: 
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outputs which are , exclusive of measurement noise, tho 
HBftflurementa (y M ), and any other outputs desired (y ). 
Finally, provision is svide for throe vector tost points: at 
the input point (t g ), at the measurement noise point (ty), 
and for obtaining opened- loop transfer functions (t r ). 

Figure 3 presents the form of the data file which must 
be input in Block 1 . The first line contains a 80 character 
title associated with this problem. The second line con- 
tains the dimensions of the problem vectors, in the order 
indicated. These dimensions are defined, aa follows j 

Hjcg - number of shaping filter states 

rv^ - number of controlled element states 

n^ - number of control inputs 

- number of process noise inputs 

n *» number of measurements 

M 

ny s - number of shaping filter outputs 

- number of additional outputs 

All dimensions must be input, even if zero, and must be 
integers separated by spaces or commas . 

The next several lines contain three- character mnemonics, 
separated by a single comma or apace, associated wiv.i elements 
in the various vectors. The dimensions of these vectors are 
indicated in parentheses in Fig. 3. If a particular vector 
has zero dimension, no mnemonics are input. 

Following the mnemonics are the non- zero elements of 
the matrices used to define the problem. The order of the 
matrices and their dimensions is shown in Fig. 3. The form 
of the input is: 

1,3, XX. XX 
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AM. .. 

njj S , % G , n u , n z , 

1W,MW2,... 
M¥S,MYS,... . 

MV1,MV2,... 

KT1 ,MT2, . , . 
MZ1,M22,... 
MYO,MXO, ... 

tj 

0 

0 

0 
0 

i,j,G c <i,j) 

0 

1 J 3 ( 3*^ d ) 

0 

i # 3iF c (i#d) 

0 

0 

0 

0 

1 *- J > F q ( ^ J ) 

o 

DEVj'FIUE.EXT 


SO character title 
vector dimensions 
u mnemonics (n^) 
w mnemonics (n^) 

yg mnemonics s tg mnemonics (nyg) 
v Mnemonics s ty mnemonics (n^) 
mnemonics ( n^, ) 
z mnemonics (n ) 
mnemonics (n yQ ) 

P s elements (%g^) 

Fg elements ( n X g ; n x ^ ) 

elements (nyg,n Xs ) 

r c elements (n^n^) 

elements (n Xc ,n u ) 


0^ elements 
elements 
elements 
Fjj elements 
elements 
.F q elements 


( n^ J, Hyg ) 

n^ ) 

< n Z »“xc> 

Uvnyg) 

( G y 0 ^ n x^) 

( n ?o ,l W 


output problem file name 


Figure 3. Form of Input Data File for Block 1 
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Output: 


where I is the integer representing the row number of the 
element, j is the integer representing the column number of 
the element, and XX. XX is the real number value (non-zero) 
of the element. Each non- zero element occupies a separate 
line, and the end of a particular matrix is signaled by the 
Integer zero. If a matrix has zero dimensions, the integer 
zero mu3t still be used. 

The final line in this data file contains the name of the 
problem file to be used in outputting the data. This name 
must conform to RT-11 file mime conventions. 

All data input is written to the output problem file. In 
addition, the input is combined Into augmented arrays so that, 
the problem is formulated in terms of the more conventional 
state vector equations. Those equations and the composition 
of the various matrices are given below. All matrices are 
written to the problem file. 

x =» Fx + Gu + fw + Ejtg 

y M 3 lix + h*s 

Z ~ + V + \ + F H t 0L 

y r 

vrhere 


4% t ) * |x s (n x& )| 

J”XT - n X g + n^j 

W (n xc)' 



85 I” Fs(nxg/ ri xg) 

L Cg ( n xg > n yg ) * ^3 ^ n ys , %s ) F c^ n xc, n xc 

a(% T ,n u ) « ro(n Xs ,n u ) ' 

Lo c (n X c»h u ). 


Restrictions : 






r s (l VV 

L r c( n xc> n vP- 

oCa^gj^xg ) 


Ii(n z ,n XT ) - [F M (n z ,n ys )xHg(n ys ,n X g) 


VV’W « F^n^nyg) 


j y M (n z > ) 

[‘Vt “ n z + <Vo] 




yfnyrp) 


^(ay T »ax T ) - f F M^ n z ' n ys ^ * H S (“ys ’ ”*3 ) ^/ n z ,n xc^ 

‘~V n yo ,r Vs ) xH g( n yg) n Xg) ^(ny^^j^) 


E 1 ( n y I ,n ys ) 


F M (a 2 .n ys ) 

L F o^ n 3 r o ,n yS ) - 


The following restrictions apply to data input for this 
portion of tlv: problem: 

1 . The error message 

DIMENSIONS TOO LARGE OR 2 IS 0 

is printed whan any or all of the following occur 

n™ > 10 

— 


n u > 5 


9 


V >15 


A > \ “° 

"ys > 5 

> > 5 

2. The error message 

DIMENSIONS OUT OF RANGE FOR 

is printed if a matrix element is specified with 
an i or j which exceeds prescribed dimensions. 

3. Tlie error message 

WRONG FORMAT 

is printed if a matrix element is not recognizable 
(e.g., too many commas). 

4. The RT-11 operating system will print fatal error 
messages If the file name is specified incorrectly, 
or if there is not enough room on the disk to write 
the file. 

5 . Certain other restrictions are not specifically flagged 
in the software. Their satisfaction is the responsi- 
bility of the user: 

® The software i3 restricted to that class of 
singular filter problems which do not require 
differentiation of any measurement. 

@ The above requirement can be met via augmenta- 
tion of the P matrix. . Thi.s augmentation is 
provided by the user. The user must specify 
a process noise vector dimension ( n^ ) which is 
at least equal to the total, number of states 


10 


(n Xr? )*. Augmentation of the process noise vector 
is considered to occur in the last n^ elements. 
Augmentation is operative only for filter problem 
solution (Blocks 3 and k ). In all other blocks , 
the effects of the last process noise compo- 
nents are deleted, 

© The user must verify independently that the plant 
is both detectable and stabilizable. This may 
be verified by requiring stability of the shaping 
filters and by examining various arrays of factored 
controlled element transfer functions. 

Example: Figure k is the computer dialog and input file listing for 

this too state, two control example problem. Figure 5 
presents the F,G, P, and H matrices which are output to the 
problem file. Note that all data in the example output in 
this manual have been read from the problem file and formatted 
via the service routine. Further notice that the first 
controlled element state is X06. Tills is the case because 
the first five plant state vector elements are reserved for 
shaping filter states . 


ORIGINAL PAGE IS 
OF POOR QUALITY 


* Any (or all) of the augmenting components may be zeroed by appropriate 
specification of the P matrix and/or the process noise intensities. 
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PROBLEM DEFINITION — BLOCK 1 
INPUT DATA FILE NAME? DXO : 2BY2 . DAT* 


Figure 4a. Input for Block 1 


2X2 EXAMPLE CASE 
13,2,2,4,2,0,0 
U01,U02 'S 

W01 ,W02,WX1 , WX2 
V01 , V02 
201, Z02 
0 


0 

1 , 1 , 1 .^ 

2 , 2 , 1 . 

1.3.1. 

2.4.1. 

0 J 

1 1 1 ^ 

A t f ' f 

2, 2, x. 1 

0 ) 

0 


1 . 2 , 1 . ' 
2 , 1 ,- 2 . 
2, 2,-3. 
0 


1 , 1 , 1 . 
2 , 2 , 1 . 

0 
0 
0 
0 

DXO: 2BY2.B1 



Problem Definition Title 
Dimensions 

MNEMONICS 


*8 

FS 

H S 


G C 

c c 


FM 

H 0 

F 0 

OUTPUT FILE NAME 


Figure 4b. Listing of DXO: 2BY2.DAT 


*In this report, all user responses in computer dialog are underlined 
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VECTOR DIMENSIONS 


NXS » 0 NXC 2 NU = 

2 NW ■ 2 m 

■ 2 NYS ® 

0 NYO * 0 

F MATRIX 

1 2 



G MATRIX 

1 2 

X06 X07 



U01 U02 

— 

— 


** 


1 1 


! 

1 0.000 1.00 

I X06 


! 1.00 0.000 




l 


! 2 


l 

l -2.00 -3.00 

5 X07 


l 0.000 1.00 


I 


l 





GAMMA MATRIX 



1 

2 

3 

4 

W01 

W02 

WX1 

WX2 




! 1 

i 1.00 

0.000 

1.00 

0.000 ! X06 

! 




! 2 

! 0.000 
• 

1.00 

0.000 

1.00 ! X07 

! 


H MATRIX 




1 

2 



X06 

X07 



— 


— 


J 


! 1 


1 1.00 

0.000 

I 201 


! 


1 


1 


1 2 


! 0.000 
t 

1.00 

I '202 

i 


Figure 5 . Output from Block 1; Problem Definition 
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! 1 

l X06 

1 2 
t X07 


BSSOEXON 111 

OOHTKOmD SIMENT DEPIffiTIOI 


BLOCK 2 


Purpose: 


14 


Input: 


v 


Output: 


This block uses the matrices input in Block 1 to compose a 
TRFN- compatible file. TRFN is an interactive software pack- 
age for computing the factored transfer function character- 
istic polynomial and numerators of various kinds from Laplace 
transformed equations of the form A^p( s)xq; F ( s) “ Btpp(s)u TF (s). 
Block 2 accesses data output from Block 1 . 

The input to this block consists of three items: 

‘I . The name of the problem file from which the data 
are to be read. 

2. The name of the output file to which the TRFN 
file is written. 

A sixty character title for the TRFN file. 

The output from this block is a TRFN- compatible file. (For 
a complete description of TRFN see Ref. 2.) The general 
form of the file is 


where 


Ax/jpp = Burpp 


c * n y?) 25 ( x c( n xg)i 

(yCnyrp) ) 


U TE’^ n u + ’Vs + n w) 


u(n u ) 

V n ys)| 

w( n w .) 


14 




E3 


Mn X( -,-(-ny-p, n xc +n yp 


■V n z>\) 


%( n yo> n *c') 


l( r iyT,ny T ) 


B ^u +n ys +r! w) 


G c (%c> n u ) c c ( n Zc ,n ys ) r c (% c ,n w ) 

0 (ny»ji> a u ) E i^ ia yT ,n ys^ °( n yT> n w ) . 


Restrictions: The RT-11 operating system will halt with a fatal error if 

the format of either file name is incorrect, or if there is 
not enough room on the disk for the file. 

Example: Figure 6 shows the computer dia3.og for this block; Fig. 7 

presents the listing of the resulting TRFN file. 


CONTROLLED ELEMENT DEFINITION — BLOCK 2 

INPUT PROBLEM FILE NAME? DX0:2BY2.B1 
OUTPUT TRFN FILE NAME? DX0:2BY2.B2 
TRFN TITLE (60 CHARS): 

2BY2 EXAMPLE CONTROLLED ELEMENT TRANSFER FUNCTIONS 



4 

% ' 

^ i* . . 


Figure 6. Input for Block 2 
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' I’ACiU? 






1 

1 

2 
2 

3 

4 

3 

4 
J 
1 
2 

1 

2 
0 


1 

2 

1 

2 

1 

2 

3 

4 

1 

2 

3 

4 


e.flOi3»niooE+'i30 

0.0O0O000E+O0 

0.flC0000flE+O0 

0. 0000000E+0 0’ 

0,00J000UF.+00 

O.CO0O000E+00- 

0.0O00000E+O0 

0,SOfl0000E+0fl 

0 . 0 itJ 00 0 00 E +0 0 
O.COOOOOOE+OO 
0 * V; 0 0 0 0 0 0 E +0 0 
0.0O0C000E+00 


0, 1000000E+01 

O » 00 COO 'O0 E +0 0 
0.0000000E+00 
0. 100 0000 K +01 
0. 0'000000E+00 
0.0'OOOOOOE+OO 
0. 02C000CE+00 
0. OOOOOOOE+OO 


0 # 0OO0OO0E+OO 
-0. 100f 00VE+01 


20U000OE+O1 
, 30O0000E+VU 

, 1OOOOO0E+0 1 
( 1CO000OE+01 
1000000E+.U 


0. X000000E+01 


2BY2 EXAMPLE CONTROLLED E LEM 
4 4 0 

X03 XC7 Z01 Z 02 
UOl U02 WOX W02 


0 * O 000 0 0 OE+00 0*1 0 0 0 0 0 0 E+0 1 

O. 00J0000E+00 . O. 1OOC00OE+O1, 
O. OOO’OOOOE+OO iu, 1CO3000E+0X 
o. 0O00000E+00 0. 1C0OO0OE + O1 

ENT TRANSFER FUNCTIONS 


0 

0 

0 

0 

0 

0 

0 


• This output file format is described below: 
I , J , A 2 , A 1 > Aq , K 


Nonzero elements of left-hand matrix 


Nonzero elements of right-hand matrix 


I , J, B 2 , B, , B o', K 

! 

0 

Title: 60 characters of User's choice to identify the job. 

N M ID J Matrix sizes and code for A output* 


AAA-j , AAA 2 > * * * > AAAjj 
BBB, , BBB 2 , * * * , BBBm 


Column code, left-hand side, 3 characters 
Column code, right-hand side, 3 characters 


•If K - 0, the element In the Ith row, Jth column t. «t to: M ■ +■*,« * *0‘ 

Tf K - 1 and L * 0, the element in the Ifn row, Jth column xs set „o. 

If r, " ! w Si' ’ rr * - 1 and Ao = 0, the element in the Ith row, Jth 
A 2 [(s +A 1 )(s + Ao)]> If K . - • > lement in the Ith row, Jth 

column is set to: AiIAs+Aq;J» xin - z, 

column is set to: A 2 [s - + 2A-] AqS + Ap J • . *»,■« -mi <» k P = 0 the A 

tlf M = 0, the line of data will termxnate the file read. I. X- J, 
equation will be output. If ID + Q, the denominator polynomxal xs sd to un . y 

atld "SerfmS’be at least N left-hand column identifiers and M right-hand 
identifiers. Each identifier must be three characters long. ■ 

9 Commas and semicolons betveeH column identifiers may be replaced wxt.i o.ny 

oth ®I I f‘‘^gyg e ig nore'than 18 column identifiers, place a + in column ?2 and 
continue on the next line . 


Figure 7. Output File Listing for Block 2 
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8ECTX0I? IV 


Purpose: 


Input: 


FILTER SET-UP ~ BLOCK 5 

This Block is used to form various matrices which vri.ll be 
vised by Block ^ to solve for the filter gains. Block 3 
accesses data output from Block 1 . The non-zero elements of 
the diagonal Q and R matrices are input for this block. 

The routine determines whether or not the problem is singular 
(one or more diagonal elements of R is zero). The Euler- 
Lagrange system matrix is computed accordingly in one of 
two ways, depending on whether or not the filter problem is 
singular. Results are written to the output problem file. 

The input to this routine consists of the following information 
in response to prompting by the software: 

1. Input problem file, in standard RI-11 format, 

2. Output problem file, in standard RT-11 format, 

3 « .Filter problem title, limited to 20 characters, 
k. Augmentation constant, a real number. 

3 . The non-zero diagonal elements of the Q matrix, in 
the form 

i> Q(i) (& w ~ ^xq) 

where i is the integer row and eolinan of the real number 
Q(i). The end of the Q input is signaled by an integer 
zero. 

6. The non-zero diagonal elements of the R matrix, in the form 

i, R(i) (n^) 
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Output: 


where i is the integer row and column of the real number 
R( i) . The end of the R input is signaled by an integer 
zero'. 


Once input is completed, a check is made to determine whether 
the problem is singular. If all the diagonal elements of R 
are non-zero, the Euler- Lagrange system matrix is formed as 
follows: 



F 


-GQG ’ 
-F* . 


It, as well as the Q and R matrices (and some other data 
required for compatibility with the singular case) is written 
to the problem file. 


If one or more of the diagonal elements of R are zero, the 
measurements are reordered so that all of the noise- free 
measurements are in the lower partition of z. This reordering 
affects the measurement and measurement noise mnemonics and 
transforms the H and R matrices . A T matrix is generated 
which transforms the original measurements to the reordered 
measurements: 


T z (n z ,n z ) X z(n z ) 




where z ^ is the vector ox’ noisy measurements 

is the vector of noise- free measurements 

m^ is the number of noisy measurements 

is the number of ncise-fz*ee measurements* 

Next, the state vector is ti'ansformcd, if necessary, so 
that the lower partition of H is [c l]. This results in a 
transformation of the state vector, changes in the mnemonics, 
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and appropriate transformations of the F, G, and r matrices, 
as well as the H matrix. A T matrix is defined which trans- 
forms the original state vector to the reordered state vector: 


T(n XT ,n XT ) x x(n XrJ ) 


'x^m' )- 


where x 1 is the vector of the remaining original states 
mj is the number of remaining original states 


Notice that the noise- free measurements "become states as the 
result of this transformation. The remaining states (x^ ) 
are a subset of the original plant states. The transformed 
F, G, T, R, and H matrices are partitioned as follows: 


F(% T >n XT ) 


F^m^mp F 12 K^)' 


G(% T >n u ) 




r ( n x T >n w ) 


Lr 2 (^>n vr ) J 


R(n ) — ► diag |R|(rXj ) o(m 2 )| 


H ( n x ^, , n^ ) 


1 (mj ,m 1 ) H 12 (m^ 


[pCra^mp 


2 (rlJ,m 2 )'] 

Kb,,iru) J 


The reordered mnemonics,, the T and T i^iatrices, the part— tion^ 

z 

of the F, G, T, and H matrices, and the Q and transformed R 
matrices are all bitten to the problem file. 
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For this singular filter problem, the Euler-Lagrange system 
matrix is formed as follows : 


ELp 


where 


(F n “ r,Qr^AF 21 ) (-^QTj + ^Qr^APaQi'p 
-fj,AF 2| ) +^ ) AT 2 (!r;; 

A U (rgOTg)" 1 


If necessary*; f^QPg Benefited to have full rank as follows: 

0 


[AC, C 

r ^2 + | 0 tL 2*... ( 


A-1 


where the AC's have the value of the augmentation constant 
(an input at the beginning of this block) or xero. The 
augmentation proceeds by beginning with the upper left 
element of the rjQFjj matrix and progressively building 
up the dimension of this upper left partition. At each 
stage of the buildup, the rank of. the upper left partition 
is tested. Tills is shown schematically below: 




J i!. 



If the nth partition of FgQPg i a not of full rank, AC n hau 
the value of the augmentation constant. Otherwise, it has 
a aero value. Tills is a protective measure to insure that 
A exists. If A exists, the filter solutions obtained do 
not require differentiation of any measurement. This auto- 
matic augmentation of f' 2 qr.| can be avoided if the user 
specifies P s , f c , and Q such that r^QTg is nonsingular 
prior to augmentation. Both the £Lp and A matrices are 
written to the problem file, as well as the nev dimensions 
(cs] , ml ) . For further information regarding the 
singular filter problem, see Ref. k. 
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Restidctions: The following restrictions apply to data input in this 

portion of the problems 

1. RT-11 operating system will halt on a fatal error if 
either file noma does not conform to its standard, . 
or if there in not enough room on the disk to which 
to write the data. 

2. The error message 

DIMENSIONS OUT OP RANGE FOR i, X(i) 
will be printed if a matrix, diagonal element is 
specified with an i which exceeds the specified 
dimension. 

J • The error message 

WRONG FORMAT 

is printed if a matrix '’•lement is unrecognizable 
(e.g., too m&ny commas). 

The following errors or warnings may occur in the course 

of the filter set ups 

1. The following advisory information is printed if the 
a, r, or H matrices do not have full rank: 

G MATRIX DOES NOT HAVE FUJI, BANK 
GM MATRIX DOES NOT HAVE FULL RANK* 

H MATRIX DOES NOT HAVE FULL RANK 
Full rank is sometimes, desired for each of these 
matrices so those advisories indicate possible 
problem ambiguities whicn should be considered 
before proceeding. 

2. The following warning is printed, if the matrix product 
FgQTg does not have full rank: 

GM2*QD*GM2T HAS BEEN AUGMENTED 
indicating that the augmentation constant was used to 
give fpQ Tg full rank so that it could be inverted. 


* Rank test requires rank n* ~ n Xc or greater. 
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. 'i tv, «•! sfi v* in##* ‘ 


Example : 


Figure 8 presents the input dialog for this block. Figure 9 
presents some of the data which is output to the problem file 
Notice that this problem is singular and requires reordering 
of the measurements and the states . 


FILTER SET-UP — BLOCK 3 

INPUT PROBLEM FILE NAME ? DX0:2BY2.B1 
OUTPUT PROBLEM FILE NAME t DXO:2BY2.B3 
PROBLEM TITLE (20 CHARS) : FILTER SOLUTION 
AUGMENTATION CONSTANT : 0.01 
NON-ZERO DIAGONAL Q ELEMENTS 
2 , 12.0 
3^01 
0 

NON-ZERO DIAGONAL R ELEMENTS S 

i/Jh. 


Figure 8 


Input to Block 3 



MEASUREMENT PARTITION : Ml » 1 M2 » I 

NUMBER OF FILTER STATES : MlP 1 


Q MATRIX DIAGONAL, FILTER 

I 


I II 

l 0.000 I W01 

I 12 

l 12.0 l W02 

I I 

l l 3 

I 0. 100E-J1! WX1 

I 14 

I 0.000 I WX2 



R MATRIX DIAGONAL, 
1 


I II 

I 4.00 1 Z02 

I I 

I 12 

i 0.000 i zni 

i i 


FI I MATRIX 
1 

E07 

I I 1 

I -3.00 I E07 

I I 


F21 MATRIX 

1 

E07 


F12 MATRIX 

1 

Z01 

I II 

l -2.00 j £07 

I I 


< F22 MATRIX 

1 

Z0I 


FILTER 


Notice 
Reordering 
of Measure- 
ments 


Portioned 
F Matrix 


1 

1 1 


i 


i i 

I 1.00 

I Z01 


i 

0.PO0 

I Z01 

I 

1 


i 


l 

EULER LAGRANGE SYS MATRIX, 

FILTER 



1 

2 





E07 

E07 







. i i 




-3. 00 

-12.0 

! E07 



i 



! 






! 2 



♦ 

-1G3. 

3.00 

1 E07 



i 



l 



Figure 9. 

Output 

from Block 3; Filter Solution Set-Up 


Cloned- loop 
System Matrix 
from I'oot 
square locus 


25 


SECTION V 


Purpose: 


Input : 


Output : 


FILTER GAINS, ESTIMATION mOH — BLOCK 4 

This routine uses an eigenvector decomposition method to 
solve the algebraic Riccati equation using the Euler-Lagrange 
system matrix computed in Block 5 . This results in closed 
loop eigenvalues and eigenvectors and Riccati equation 
solutions from which the filter gains can be computed. Also 
computed are the rms vector and correlation matrix for the 
state estimation error. 

The input to this block consists of the input problem file 
title and the output problem file title — - both entries are 
prompted by the software. 

The filter solution is obtained via eigenvector decomposi- 
tion using the QR algorithm (see Ref. 5). Open-loop plant 
eigenvalues and closed loop eigenvalues and eigenvectors 
are computed and written to the problem file (eigenvectors) 
are normalized) • The Riccati matrix, P x? is computed and 
from this the filter gains are computed: 

K n - P^R-I 
K a ( p x F 21 + r l < ^2' A 

The K-j -j gains operate on the noisy measurements, while the 
K 12 gains operate on the noise-free measurements in generat- 
ing estimates of the plant states. Figure 10 shews the 
form of the filter solution in terms of K^, K 12 > a* 1 * 3 - the 
partitions of the plant matrices . Finally, the equation 


«i .» '/(T-1P x T'T) ii 

is used to compute the rms estimation error distributed 
across the original states — the corresponding correlation 




x> 










matrix is also computed. The Riccati matrix, filter gains, 
rms vector, and correlation matrix ore all written to the 
problem file. 


Restrictions: 



On input a fatal error will be trapped by the RT-11 operating 
system if the filter names specified are not in accordance 
with the standard, or if there is not enough free space on 
the dish to write the output problem file. During the eigen- 
vector decomposition and subsequent computations, the follow- 
ing errors can occur: 

1 . The error message 

ERROR COMPUTING CLOSED LOOP EIGENSYSTEM ‘ 
will be printed and execution halted if the.eigensystem 
subroutine failed to converge on a given eigenvalue, 

2. The warning 

REAL PART OF C.L. EIGENVALUE * 0.0 
will be printed if the real part of a closed-loop eigen- 
value is identically zero. If this occurs, the selec- 
tion of eigenvectors used in eigenvector decomposition 
will probably not be correct.* 


The error message 

ERROR IN EIGENVALUE SELECTION 
will be printed and execution halted if there are not 
mj eigenvalues with positive real parts.** 

4. The error message 

ERROR IN EIGENVECTOR DECOMPOSITION 
will be printed and execution halted if the matrix used 
to compute the Riccati matrix is singular. 


* is a limitation of the current software rather than a theoretical 

limition of the computational method. 
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Example : 



5 . The warning 

FILTER RICCATI MATRIX NOT NON-NEGATIVE 
will be printed if any diagonal element of P x is less 
than zero. That element will be set to zero (as well 
as the intersecting row and cc umn) elements and execu- 
tion resumed. 

Figure 11 presents the input u^alog for this block; Fig. 12 
contains some of the matrices which are computed. 'Me that 
the closed loop filter eigenvalues will appeal as a closed 
loop roots in the final closed loop system transfer functions 


FILTER GAINS, ESTIMATION ERROR -- BLOCK 4' 
INPUT PROBLEM FILE NAME ? DXO: 2BY2 .Bj 
OUTPUT PROBLEM FILE NAME ? DX0:2BY2 .b4 


Figure 1 1 . Input for Block 4 



CLOSED LOOP EIGENVALUES, FILTER 


! i 

» 34.8 J 1 

I ,180. S E07 

! t 


Eigenvalues are in polar form 
with argument in degrees 


Kll GAIN MATRIX, FILTER 
1 

Z02 

! 1 

J O.793E-0U E07 

t * 


K12 GAIN MATRIX, FILTER 



1 

Z01 


EXX denotes a 

t 

{ 


.1 1 

filter state 

31.7 

! E07 

variable 

l 


1 



RMS STATE EST ERROR, FILTER 

1 


! 


l 

1 

S 

0.000 

S 

X06 

j 


! 


l 


S 

2 

t 

0.563 

i 

X07 

! 


! 



Figure 12. Outpuc from Block 4; Singular Filter Solution 
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SECTION VI 


Purpose : 


Input : 




ORIGINAL’ PACK IS 
OF POOR QUALITY 


Output : 


C' 



iM^M^d .*********' :*<*'**•;****».< 


HEQUIATOR GAINS — BLOCK 5 

This block accepts user input of the Q R and Rp non-zero 
diagonal elements and uses this information and informa- 
tion computed in Block 1 to solve the regulator problem. 
Note that solution of the regulator problem is in no -way 
dependent upon the filter solution. The regulator problem, 
like the filter problem, is solved via eigenvector 
decomposition. 

The input to this routine is analogous to Block 5 and is 
prompted by the software. It includes 2 

1 . Input problem file name . 

2* Output problem file name. 

3 # Title for regulator solution, 20 characters. 

4. The non-zero diagonal elements of the Qr matrix, in 
the format 

i, Qr(I) (vyr) 

where i is the row and column integer of the real 
element Q R (i). The end of the Qr input is signaled 
by an integer zero. 

5 . The non-zero diagonal elements of the R R matrix, in 
the format 

i> %(i) («u) 

where i is the row and column integer of the real 
' element %(i) . The end of the Rr input is signaled 
by the integer zero. 

The first step in computing . the regulator gains is to form 
the Euler-Lagrange system matrix, as follows: 
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ELr 


P' H'QrH* 
GRrV -F 


Using this matrix, the open loop eigenvalues, closed loop 
eigenvalues, and normalized, eigenvectors are computed. 

All are written to the output problem file, along with the 
Q r , r r , and ELr matrices . The closed loop eigenvectors 
are used to compute the Riccati matrix via eigenvector 
decomposition. The Riccati matrix, S, is used in turn to 
compute the regulator gains: 

C = RrVs 

The S and C matrices are written to the output problem file 


Restrictions: The following errors will be signaled if found in the input 

data : 

1 . RT-11 operating system will halt execution with a fatal 

error if the problem file names are not input in accord 
ance with the proper file name specif ication, or if 
there is not enough contiguous free space on the dish 
to accommodate the output file . 

2. The error message 

DIMENSIONS OUT OF RANGE FOR i, X(i) 
will be printed if i exceeds the specified dimension 

of X. 

2 . The error message 

WRONG FORMAT 

will be printed if the matrix entry is unrecognizable 
[e.g., decimal point missing from X(i)j. 

The following errors may be flagged during eigenvector 
decomposition and regulator gain computation: 


30 




Example: 


1 „ The error message 

RKD DOES NOT HAVE FULL RANK 
will be printed and execution halted if any diagonal 
element of Rr is zero. 

2. The error message 

ERROR COMPUTING CLOSED LOOP EIGENSYSTEM 
•will be printed and execution halted if the eigensystem 
subroutine failed to converse on a given eigenvalue. 

3. The warning 

real part of c.l. eigenvalue = 0.0 

will be printed if the real part of a closed loop eigen- 
value is identically zero. If this occurs, the selection 
of eigenvectors used in eigenvector decomposition will 
probably not be correct.* 

4. The error message 

ERROR IN EIGENVALUE SELECTION 
will be printed and execution halted if there are not. 
n xT eigenvalues with positive real parts.* 

5 . The error message 

ERROR IN EIGENVECTOR DECOMPOSITION 
will be printed and execution halted if the matrix used 
to compute the Riccati matrix is singular. 

Figure 15 is the computer dialog for Block 5; Fig. is a 
sample of the output from this routine. Notice that the 
closed loop eigenvalues from the regulator solution are 
closed loop roots of the overall system. 



* This characteristic of the software currently denies the possibility 
of designing optimal regulators having one or more closed loon eigen 
zero or Native real part. Thi. software o mracWrr - 
tic can be modified to accommodate these cases, as thio limitation — 
not a theoretical one . 
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REGULATOR GAMS — BLOCK 5 

INPUT PROBLEM FILE HAMS ? DXO: 2 BY2.B4 
OUTPUT PROBLEM FILE NAME ? DXO:2BY2.B r 3 
PROBLEM TITLE (20 CHARS ) : REGULATOR SOLUTION 
NON-ZERO DIAGONAL QR ELEMENTS: 

.0 

NON-ZERO DIAGONAL RR ELEMENTS : 

T , . 1 4286 

gjLlgS 


Figure 13. Input Tor Block 5 


Q Nkv*RIX DIAGONAL, REGULATOR 


R MATRIX DIAGONAL, REGULATOR 

1 



X 



. 

i i 

r 


i 

1 

0 • 000 

! Zfll 

i 

0.143 

J 

U01 


! 

i 


! 



! 2 



t 

2 

5.00 

! Z02 

* 

0.250 

i 

U02 


l 

i 


1 


.. 

— 


— 

— 



CLOSED 

LOOP EIGENVALUES, REGULATOR 


REGULATOR 

GAIN MAT1 : [X 


1 



1 

2 






X06 

X07 





! 



» 

i 

3.00 

! 1 

t 

1.75 

-0.875 

» 

U01 

180. 

! XC6 

! 



j 



! 

i 

+ 



» 

2 



t 

-0.530 

2.25 

i 

U02 

4.00 

! 2 

I 



i 


180. 

• X07 







1 I 

Figure l4. Output from Block 5j Regulator Solution 
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SECTION VII 


SENSITIVITY “ BLOCK 6 


Purpose: 


Input : 



Output : 


This routine computes the normalized sensitivity of the 
closed loop regulator eigenvalues to changes in the F, G, 
and C matrices. Such sensitivity calculations can be used 
to identify the important elements of a given gain xnatrix 
or parameters in the plant matrices to which the controller 
design is highly sensitive. The normalized sensitivity can 
be considered a measure of the fractional eigenvalue shift 
per unit fractional change in a matrix element. For further 
treatment of thi3 topic, see Ref. 6. Execution of this block 
must be preceded by execution of Block 5 * * 

Input to this block consists of three elements: the input 
problem file name, the output problem file name, and the 
20 character title to be associated with this portion of 
the problem. 

Mathematically, the following normalized sensitivities are 
computed fcr each distinct eigenvalue and stored in the 
output problem file: 


0 

5Xi 




r\ 

5x< 


h 

rt 

SXi 

_i_ C j k 

* 

5c, Ik 

5°jk 

H 
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n 

vhere (*) is normalized of (•) 

is the ith eigenvalue 

Xjfc (where X « F, G, or C) is the 
d element of X in the jth row, 
kth column 

Thus, for each eigenvalue three matrices are computed} 
each matrix contains complex numbers which indicate the 
normalized sensitivity of tho particular eigenvalue to 
the corresponding element in the original gain matrix. 

Small numbers in the sensitivity matrix indicate insensi- 
tivity of the appropriate regulator eigenvalue (and thus, 
tho appropriate closed loop root) to the element in the 
corresponding matrix. All sensitivity matrices are written 
to the output problem file . 

Restrictions: RT-11 operating sy& a will halt with a fatal error if the 

problem file names are incorrectly specified., o* if contiguous 
disk space is not available for the output file. 

The error message 

ERROR INVERTING EIGENVECTOR MATRIX 
will be printed and execution halted if the eigenvector 
matrix is singular. 

Example: Figure 15 is the input dialog for this block. Figure 1 6 

presents illustrative sensitivity matrices for the example 
problem, 

SENSITIVITY — BLOCK 6 
INPUT PROBLEM FILE NAME ? PX0:2FiY2 . B‘> 

OUTPUT PROBLEM. FILE NAME T PXO:2BY2,B6 
PROBLEM TITLE (20 CHARS) SENSITIVITY 

figure 15. Input for Block 6 





NORMALIZED F MATRIX SENSITIVITY TO EIGENVALUE : 


-4.00 


0.000 





1 

2 



X08 

X37 





2 


0.003 

0.500 

I 1 


90.0 

0.000 

I X0f> 




I 




t 

4 

• 

1.25 

1.25 

5 2 


0.000 

180. 

! X07 

- 



t 


NORMALIZED 

G MATRIX 

SENSITIVITY 


1 

2 



uot 

U02 


I 




I 

1.75 

0.000 

I 1 

I 

180. 

90.0 

! X06 

I 



1 

! 



! 

1 

3.000 

1.25 

! 2 

I 

90.0 

0.000 

! X07 


Sensitivity vectors are 
in polar form with the 
argument in degrees 


-4.00 


ORIGINAL PAGE IS 
OF POOR QUALITY 


0.000 


NORMALIZED C MATRIX SENSITIVITY TO EIGENVALUE s -4.00 


0.000 



X06 

X07 



I 



2 


1 

1.31 

0.4 37 

2 

i 

I 

t 

100. 

130. 

2 

| 

U01 

• 

I 



# 

! 


I 

0, 3 -.2 

Or 937 

! 

2 

2 

0 . 

0.000 

1 

U02 


Figure l6. Output for Block 6; Closed-loop Regulator 
Eigenvalue Sensitivities 
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Purpose: 


Input: 


Output : 





SECTION VHX 

CONTROLLER — BLOCK 7 

This routine combines the filter and the regulator solutions 
to compute coefficient matrices which define the optimal 
controller. Use of this block presumes a filter solution; 
a regulator solution is optional. If a regulator solution 
is not provided, the regulator gain matrix, C, is set to 
zero. 

Inputs to this block consist of the input problem file name, 
the output problem file name , and a 20 character problem 
title. All inputs are prompted by the software. 

The controller structure is defined by the following equations. 

Ap(mj , raj) X y(mj) + B F (mj, n z ) x z(n z ) 

C F (i\,, sij) X y(raj) +■ Dp(n u , n z ) x z(n z ) 

filter states 


y(mj) - 
u(\) ■ 

A 

^here y « 


The coefficient matrices in the con*.. roller equations are 
defined by? 


Ap « 
Bp ® 


F n" K 12 F 21 " K l 1 H 1 1 "( G 1 H 1 12 G 2) C ' r ” 1 [o]j 
K 11 j ( F n " K 1 2 F 21~*1 1 H 1 1 ) K 1 2 +F 1 2~ K 1 2 F 22“ iC l 1 H 1 2 1 T 2 

-[( G 1" X 12 G 2) CT “ 1 [o ? 2 ]_ 


C F - -CT 
Dp «* ~CT 


-IP 

0 


■1 k 12 _ i 

0 I J 



In addition, a controller system matrix, A c , is computed to 
bo used in the closed loop system performance analysis. 
Block 10: 


A c (%T + m i> n xT + m l) 


F+G[Dpjo]H GCp 
[Bp j OjH Ap 


The controller coefficient matrices and the A c matrix are 
written to the output problem file. 

Restrictions: RT-11 operating system will halt with a fatal error if the 

input and output problem file names a,re incorrectly speci- 
fied, or if there is not enough contiguous disk space for 
the output problem file. 

Example: Figure IT is the input dialog for this block; Fig. 18 

presents the controller coefficient matrices for the 
example problem . 


CONTROLLER — BLOCK 7 


INPUT PROBLEM FILE NAME ? DXO : 2BY2 .Bb 
OUTPUT PROBLEM FILE NAME ? DXO:2BY2.B7 
PROBLEM TITLE (20 CHARS) : CLOSED LOOP PA 


Figure IT. Input for Block 7 




:■ A : 




AF MATRIX 

1 



i ! 1 

l -64.8 S E07 

! i 


BF MATRIX 

1 2 
Z 01 Z 02 


l 11 

J - 0 . 200 E +04 C. 793 E- 01 l E 07 

! ! 



CF MATRIX 
X 

E07 


| ! 1 

1 0.875 I U 01 

i 1 

! ! 2 

J -2.25 ! U02 

1 1 


DF MATRIX 

1 

2 


Z 01 

Z 02 


*» 


— 

26.0 

0 .CO 0 

! 1 
! U 01 




i - 70.9 

0 .C 00 

t 2 
! U 02 

t 




Figure l8. Output for Block 7} Controller 
Coefficient Matrices 



Purpose: 


Input : 


Output: 


original 1 pa'giv rs 

OF POOR QUALITY 


SECTION IX 

CONTROLLER DEFINITION — BLOCK 8 


This routine use3 the controller equations generated in 
Block T to produce a TRFN-compatible file. Controller 
transfer functions can he computed using this file and 
the TRFN progroin (Ref. 2). 

The inputs to this block consist of the input problem file 
name, the output TRFN file name, and a 60 character title 
for the TRFN file. All are prompted by the software. 

The output from this block is a TRFN-compatible file — 
for a complete description, see Ref. 2. The general iorm 
of the controller representation is: 


a tp x tf « 


where 


KIEV®! +nu) “ 
u Tf( d z) 


y(®i) 

u(nu) 
Z] (mi ) 
( z 2(®2) 


A(mj +n u >m] +n u ) 


(sI“[F n “K 12 P2i-KiiH n 3) (-a,* K l2 G 2 ) 


CT' 


•1 PC' 


B ( m i +n u» n z) 


Ml 



( [ Fn -Kj 2 F 2 1 ~ K i i B i 1 1 K i 2 +f i 2" k 1 2 f 22~ K i y 2 



[o %; 

b 1 ... 



RT-11 operating system will halt with a fatal error if 
either file name is specified incorrectly, or if there 
is not enough contiguous space on the disk to accommodate 
the output TRIM file . 


Example: 


Figure 19 is the dialog used on input to this block; Fig. 20 
lists the resulting TRFN file . 



Figure 19» Input .for Block 8 


1 1 0. 0(300v3t5DE+00 0. 1O0000I3E+01 0. 3489312E+02 

2 1 0. .0000000E+00 0. 0000000E+00 -0 . 8 7 4 98 3 1 E +0 0 

3 1 0. 0000000E+00 0. 0000000E+00 0 . 22 5 0 00 0E +0 1 

1 2 0 . 0 0 0 0 0 0 0 E + 0 0 0. 0000000E+00 0. 3173445E+02 

1 3 0. 0000000B+00 0. 0000000E+00 -0 . 1 0 0 0 00 0E +3 1 

2 2 0. 000O000E+00 0.0000080E+00 0 . 1 000 000E+01 

3 3 ' 0. 0000000E+00 0.0030000E+00 0 . 1 0 0 0 0 0 0E +0 1 

0 

1 1 0. 0000000E+00 0. 0000800E+00 0 . 79 3 3 6 1 3E -0 1 

1 2 C . 0 0 0 0 0 0 0 E +0 3 0.0008000E-H3O -0. .1 1 0S.79SE +0 4 

2 2 0. 8000000E+00 0.0000000E+00 0 . 2 60 1 71 3E +0 2. 

3 2 0. 0000000E+00 0 . 00000 00 £+00 -0 . 70 902 52E +0 2 

0 

2BY2 EXAMPLE CONTROLLER TRANSFER FUNCTIONS 
3 2 0 

E07 U01 U02 
2 02 201 

This output file format is described in Fig. 7 . 


Figure 20. Output File Listing for Block 8 
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Purpose : 


Input : 


Output : 


o 




SECTION X 

CLOSED I.OOP SYSTEM DEFINITION — BLOCK 9 

This routine uses the controlled element equation developed 
in Block 1 and the controller equations from Block 7 to 
compute a TRFN- compatible file from which closed loop system 
transfer functions can be obtained. In addition, the Ij 4 
identity matrix (refer to Fig. 2) can have some or all of 
its diagonal elements, zeroed. This has the effect of selec- 
tively opening loops at the point of measurement. This, in 
turn, allows computation of any desired opened loop transfer 
functions . 

The inputs to this routine consist of the following: 

1 . The input problem file name . 

2. The output TRFN file name. 

3 . The n z diagonal elements of I M . These are all input on 
one line, separated by commas . For the closed loop 
system, all have a value of 1 .0 . If opened loop trans- 
fer functions are desired, the elements of the % 
diagonal corresponding to the opened loops should 
have a value of 0.0* 

4. The 60 character title for the TRFN iile. 

All inputs are prompted.- 

The output from this block is a TRFN-compatible file lor 
a complete description, see Ref. 2. The general form of the 

file is: 













Restriction:; 


Example : 


• , RT -1 1 operating system will halt with a fatal error if either 
file name is specified incorrectly, or if there is not enough 
contiguous disk space available for the TRFN file output. 

Figure 21 is the dialog used with this block; Fig. 22 lists 
the resulting TRFN file generated. This output file format 
is described in Fig. 7 . 


CLOSED LOOP SYSTEM DEFINITION ~ BLOCK 9 
INPUT PROBLEM FILE NAME 1 DXQ : 2BY 2 .B7 
Output TRFN FILE NAME ? DX0:2BY2.B9 
TRFN TITLE (60 CHARS): 

2BY2 EXAMPLE CLOSED LOOP SYSTEM TRAN SFER FUNCTIONS 

IM DIAGONAL ELEMENTS (NZ -OF- THEM) : 

luu.l:. 


Figure 21 . Input for Block 9 



1 1 0.3)9000008+08 0'.100000OE+01 -0. 2601 71 3E+02 0 

1 2 '0.00000008+00' 0..0000000E+00 -0.1000000E+31 0 

2 1 0^00000008+00 0.8000 0 0 0E +0 0 0. 7290252C+02 0 

2 2 0.0000000B+03 0. 1000000E+O1 0. 3003030E+O1 0 

3 1 ,.0.00800008+00 0.0000000E+00 0. 280333-88+04 0 

3 2 0..0300000E+00 0. 8000800E+00 -0. 793361 3E— ;31 0 

4 1 0.00000008+00 0,00000008+00 -0.1003000E+01 0 

5 2 ■0.00800008+00 0.G000000E+00 • -0.1000080E+01 ■ 0 


1 3 0.-0000003E+00 8.0000000S+00 -0.87498318+00 

2 3 3.30O3000E+03 0.0000088E+00.- 0. 22533008+01 

3 3 0.000000.08+00 0.-1000000E+01 0. 64 8 3090 E +02 

4 4 0.00000G0E+00 0.00000008+00 0.1200030E+31 ; 

5 5 0.000000.0E+00 0.0000000E+00 0.1000000E+01 

0 ' 

1 1 0.O0300O0E+30 0.00000008+00 0. 26017138+02 

2 1 0.0000.000E+03 0.0000000E+00 -0.7090252E+02 

3 1 0-,0000C0OE+80 0.0030030E+00 .'-0.2003338E+04 

3 2 0.00000008+00" 0.0030000 E+33 0. 79335138-01 

1 3 0.00000008+00 0.0000000E+00 0 . 10000008+01 

2 4 0.00000008+00 0.0000000E+00 0. 1OZ0000E+01 

a 

2BY2 EXAMPLE CLOSED LOOP SYSTEM TRANSFER FUNCTIONS 
5 4 0 

XC5 X07 E07 201 2)12 

VC I V32 WiU W32 


Figure 22. Output File Listing for Block 9 
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G O Q G St Si Si Q G G G> 


Purpose : 


Input : 


Output: 


• SECTION XI 

STOCHASTIC PEHFOHMCE ANALYSIS — BLOCK 10 

This routine computes the rms and covariance matrices arising 
from process noise, measurement noise, and the total for both 
noise components » These matrices are computed for both the 
closed loop system state vector and a vector composed of the 
outputs and controls. For the state vector this is accom- 
plished by solving the equation 

A(COV) + (COV)A f + Q a 0 

for the covariance, COV. In addition, the correlation matrix 
for output and controls is computed. Execution of this block 
must be preceded by execution of Block 7* 

The Input to this block consists of the problem file name for 
the Input, and the problem file name for the output. Both 
are prompted by the softv/are. 

A steady state covariance routine is used to solve the equation 
A(COV) + (COV) A* + Q = 0 


for COV given A for a stable system. The A^ matrix used here 
is computed and output by Block 6: 



F + G[Djj* j 0]H GC f 
[B p!o]H Ap 


The Qy matrix used to compute the process noise contribution 
to the covariance matrix is 



The Q v matrix used to compute the measurement noise contri- 
bution to the covariance matrix is 

h 






0 


Bp] 


From these Q's and A c , the covari&nce matrices COV w and COV r 
are computed. The total covariance is the sum: 

COV TOT “ COV w + COVy 

The covaxiance of the output and controls is obtained as 
follows: 


Hr 0 


DpH Cp 


COV-poT 


R H ' D f] 

i n Jl ! 


The rms vectors are computed from the covariance matrices. 
All rms vectors and covariance matrices are written to the 
output file. 

Restrictions: RT-11 operating system will halt with a fatal error if either 

file name is not input according to convention^ or if disk 
space is not available for the output file . 

Example: Figure 25 presents the input dialog for this block; Fig. 2k 

contains some rms vectors which are computed for the example 
problem. 

STOCHASTIC PERFORMANCE ANALYSIS — BLOCK 10 

INPUT PROBLEM FILE NAME ? DX0;2BY2 .B7 
OUTPUT PROBLEM FILE NAME ? DXQ:2BY2 .BIO 

Figure 2$. Input to Block 10 


v K: - ,> 5 ‘ & 1 • 1. £ -y H ^ - ' - 1 * - ME 




RMS, PROCESS NOISE , RMS, MEASUREMENT NOISc 


1 


1 



rlr 

/mm 

— 

— 



11 

! 

i 

i 

! 0.497 

* X06 

t 8.72 

f 

X06 


i 

! 

i 



i 2 

J 

i 

2 

! 1.10 

! X07 

! ”7.6 

i 

X07 



! 

l 


j 

I 3 

1 

l 

3 

i 15.3 

! E07 

! 279. 


E07 



! 

» 




FACTION XII 
' 8SRVXCS -BODXZBB 

Purpose: This routine allows the user to access the output problem 

files and format the data in a report -ready form. 

Input: The user inputs the name of the output problem file to be 

accessed, and then the numbers identifying the elements in 
that file which are to be printed. Table 1 lists the ele- 
ments available for printout. Notice that the complete 
ia only applicable when all blocks have been run. 
Otherwise, only an appropriate subset of the elements can 
be located in a given problem file. An index of zero 
terminates the file element requests. 

Output: The output of the service routine is a formatted listing 

of the desired elements of the problem file. 

Restrictions: RT-11 operating system will halt with a fatal error if the 

problem file name ia incorrectly specified. 

Example: Figure 25 is the dialog used to obtain the file element 

shown in Fig. 2^. 

i iwi— > i i . . ia uim 

PROBLEM FILS NAME ? DXC:2BY.?.B10 
INPUT INDEX OF EACH ELEMEHT TO BE LISTED 
ONE PER LINE — LAST INDEX SHOULD BE 0 
122 
jgh 
126 
■ 128 
0 


Figure 25 . Service Routine Input 



TABLE 1 . INDEX TO PROBLEM FILE ELEMENTS 


INDEX 

BLOCK 

CREWED 

ELEMENT 

ROW DIM 

COLUMN DIM 

1 

Block 1 

Title 



2 



Input dimensions 

■ — 

— 

3 



U mnemonics 

1 

n u 




w mnemonics 

1 

% 

5 



y$ mnemonics 

1 

V 

6 



v mnemonics 

1 

n s 

7 



^OL Mlon ^ es 

1 

»y8 

8 



mnemonics 

1 

n z 

9 



mnemonics 

1 

D yo 

10 



z mnemonics 

1 

n z 

11 



Xg mnemonics 

1 

V 

12 



Xq mnemonics 

1 

n xC 

13 



r s 

HjcS 

«w 

14 



% 

«xs 

%S 

13 



% 

V 

n xS 

16 



Pc 

%c 

°w 

17 



G c 

n xC 

«u 

18 



C C 

«xC 

V 

19 



*C 

«xC 

n xC 

20 



% 

% 


21 




n z 


22 



»0 

V 

*^0 

23 



* 6 

n yO 

V 

24 



F 

n xT 

"xT 

23 



G 

n xT 

>u 

26 

. 


r 

n xT 

«w 

27 

; 

: 

■ 

■ 


H 

n z 

n xT 

28 

■ 


% 

V 

°xT 

29 



®i 

V 

V 

30 

1 


% 

n 2 

V 


49 

ORIGINAL PAGE IS 
OE POOR QUALITY 


TABLE'. 1 (Continued) 


I 1 TDEX 

BLOCK! 

CREATED 

ELEMENT 

ROW DIM 

COLUMN 

31 

Block. 1 

*3 

”xT 

”yS 

32 

Block 3 

v mnemonics (reordered) 

1 

n z 

33 



z mnemonics (reordered) 

1 

n z 

34 



x mnemonics (reordered) 

1 

n xT 

35 




n z 

n z 

36 



T 

n xT 

n xT 

37 



T" 1 

n xT 

%T 

f 

30 



Fn 

®1 


39 



?12 

m] 

®2 

t 

4o 



f 21 

©2 

®1 

4i 



F22 

n>2 

m 2 

42 



°1 

“1 

«u 

43 



«2 

®2 

n u 

44 



rt 

®i 

*V 

45 


* 

r 2 

®2 

«w 

46 



H*T 

n z 

HxT 

| 

47 

' j 


HU 

®1 

®1 

48 



H 12 


®2 

49 



H 22 

®2 

®2 

50 



Q 

1 

"w 

51 



R 

1 

% 

I 

52 



ELp 

2 m \ 


53 



A 

®2 

m 2 

54 


f 

filter dimensions: , m 2 


» 

55 

Block 4 

\>L 

1 

mj 

i 

56 



*C L 


®i 

57 



Woi(X) CL (eigenvector partition 


m r 




for Xcl) 


( 

59 



P 


my 

59 




• 

®i 

60 


V 

h?. 

®i 

®2 


*02 ros vector. 

50 


TABLE 1 (Continued) 


INDEX 


BLOCK 

CREATED 

Block k 


ELEMENT 


ROW DIM 


COLUMN DIM 


Block 5 


Block 6 


w 2l( x )cL ( ei 'E en vector partition 
for ^L^ 

S 

C 

JUl/SF 

£x 1 /^g 

b^]/bC 

&z/bF 

&i 2 /Sg 

5^g/c3C 

dXa/rXf 

> r\s , 

S^/^p 

5^/c)G 

5X^/<5G 
5X^/o c 

c^Xg/^F 
r\ . 

SXg/^G 

3Xg/^C 


m 1 

®1 

1 

V 

1 

«u 

2n x T 

2n xT 

1 

n xT 

1 

n xT 

n xT 

°xT 

“xT 

n xT 

R u 

HxT 

n xT 

n xT 

°xT 

«u 

n u 

n xT 

n xT 

n xT 

n xT 

”u 

«u 

"xT 

“xT 

n xT 

n xT 

°u 

“u 

p -xT 

n xT 

n xT 

n xT 

“u 

°u 

n xT 

n xT 

n xT 

°xT 

°u 

«u 

^xT 

n xT 

n XT 

n XT 

«u 

V 

n xT 


ms vector, 
correlation matrix. 




-v .>», 



TABLE 1 (Continued) 


INDEX 

BLOCK 

CREATED 

ELEMENT 

ROW DIM 

COLUMN DIM 

89 

Block. 6 


"xT 

«xT 

90 




*Vc 

«u 

91 




«u 

n*E 

92 




”xT 

”xT 

93 



^■q/sg 

n xT 

Hu 

94 



?Vac 


°uT 

95 




n xT 

n xT 

96 




n xT 

Hu 

97 



axc/cic 

°u 

n xT 

98 



5X 10/ ^F 

n xT 

HxT 

99 



i?X 10 /?)G 

n xT 

Hu' 

100 



5 x 10 /sc 

°u 

HxT 

101 



ax ri /sF 

"xt 

"xT 

102 ; 



SX^/SG 

n xT 

Hu 

103 



5X-| i/Sc 

«u 

n*T 

104 



5X1 2/SF 

n xT 

HxT 

105 



5X^ g/SG 

"xT 

“u 

106 



sx 12 /ac 

n u 

n xT 

107 



5X 15 /SF 

n xT 

«xr 

108 



clXi j/ciG 

n xT 

Hu • 

109 



sx 15 /ac 


HxT 

110 



Sx^/sf 

n xT 

.HxT 

111 



aX^/^G 

n xT 

h u 

112 



SX’j 4/5 c 

«u 

HxT 

113 



Sx 1 y^F 

°xT 

HxT 

1l4 



c)X-j i^/Wi 

HxT 

«u 

115 


f 

Sx 15 /ac 

Hu 

HxT 

116 

Block 7 

Ap 

m i 

raj 

117 



Bp 

raj 

n z 

118 



Cp 

«u 

raj 

119 

1 

f 

Dp 

n u 

n z 



22 



TABLE 1 (Concluded) 


IKS EX 

BLOCK 

CREATED 

ELEMENT 

RCW DIM 

COLUMN DU -1 

120 

Block 7 



%T + m f 

121 

Block 10 

COV* 

“xT‘ to { 

r *xT + ® j 

122 




1 

«xT + ®i 

123 



COVv 

n^-taj 

*xT + “{ 

124 



cr 

V 

1 

°xT + “j 

125 



°roT 

n xT +m 1 

”xT + °1 

126 



<*COT 

1 

%T + m 1 

127 




V +n u 

lyp + nu 

128 



a yu 

1 

V + °u 

129 



p yu 

v +n u 

Hyr + ”u 


* COV ~ covariance matrix* 


55 


SECTION mi. ■ 

CLASSICAL CONTBQL ElOCEDUBES 

For the sake of completeness, Figs. 26, 27, and 28 are included to present 
example closed loop transfer functions (computed using TRFN), frequency 
response plots (computed using USA®), and transient response plots (computed 
using USAX2). Each of these STI-proprietary softv/are packages have public 
domain counterparts . :\ 


GO < Y7LIEOETRFN 


l-Fi?ta-79 17*24 
INPUT DATA FILE NAMES 2X2 


CASE * 2X2 EXAMPLE CAGE CLOSED LOOP SYSTEM TRANSFER FUNCTIONS 

denominator: 

1.0000 

< 3.0000 > < 4.0000 > < 34.014 > 

< 417. 76 > 


NUMERATOR J X06/V01 
26.01 7 

< 2.3806 > (-4.6493 > 

<-207.94 > 


NUMERATOR: X07/V01 


> < 2.6863 > 

> 


NUMERATOR: E07/V01 

-2003.3 

< .99926 > ( 2.0036 > 

<-4010.0 > 


numerator: 

24.017 
( 2.3006 
<-287.96 


NUMERATOR*: Z02/V01 

-70.903 

(-.69406 > ( 2.4863 > 

<132.35 > 


ZOi/VOl 


) (-4.6493 ) 

> 


ORIGINAL LACK IS 
OR I'O OIL QUALITX 


-70.903 
(-.69406 
< 132.35 


*The following shorthand notation is used to represent transfer 
functions: 

o o 

K(s + z)(s“ + 2£^(b]S + u^' ) K(z)[C, 1 j ] 

(s + p)(s 2 + 25 2 a^s + tu|) (p)C^2» “2^ 

Figure 26 . Factored Transfer Functions 








1. Bryson, Arthur E., Jr., and W. Earl Kali, Jr., Optimal Control and 


Filter Synthesis 


SUDAAR Wo. 1971.” 


Ion , Stanford University 


2. Stapleford, R. L., Users* Manual for STI Control System Design Pro grams \ 
Systems Technology, Inc July 1970 (Revised Aug, 1975T-~ 

3* Riedel, Susan A. ; . and 1. G. Hofmann, Practical Opti mal Control for 
Fligh t Control Applic ati on „ Vol. I: Technical Report , Systems 

Technology, Inc*, TR- 11 27-1, forthcoming. 

4. Hoftoann, L. G. , Transformations for Singular Filter Problems Enabling 
Eigenve cto r pecomposition . Systems Technology, Inc., VIP-1127-1, 

Aug. 1975". 

5* Wilkinson, J. H. and C. Reinsch, Li near Algebra , New York, Springer- 
Verlag, 1971 . 

6. Slater, G. L.> "Approach Guidance for a STOL A/C," Univ. of Cincinnati, 
Dept, of Aerospace Engineering and Applied Mechanics, unpublished, 
circa 1976. 

7* Smith, B. T. , et al., L ecture Notes in Computer Science. Vol. 6: 

Matrix Eigensystem Routines - EISPACK Guide , ""New York, Springer- 

^i^la^7’2nd”ed7, T 9757” 

8. Sandell, Nils R. and Michael Athans, Modern Control T he ory. A Self- 

Study Subject Computer Manual , MIT, Center for Advanced Engineering 
Study, 1974. 


9 . Hofmann, L. G. , Topics on 
Single and Multiple Cc 
TR- 1 70-52, Feb. 1971 . 


ractical Application of Optimal Control to 
brol-Point Flight Control Problems , AFFDL- 


10 . Forsythe, George E., Michael A. Malcolm, and Cleve B. MbXer, Computer 
Methods for Math e matical Computations , Englewood Cliffs, N.J., 
Prentice-Hall, Inc., 1977. 





APPENDIX 


PROGRAM LISTINGS 

This appendix contains complete listings for all. of the software used 
to Implement the optimal control design package. The mainline routines 
Which solve the filter and regulator problems were adapted from the Bach/ 
Slater version of 0FTSY3 (Ref. l). All of the programs which solve the 
eigenvalue problem were taken from EIS.PAK (Ref. 7). The generalized matrix 
inverse routine is from the CAES optimal control package (Ref. 8). The co- 
variance equation routine was adapted from Klelnman (Ref. 9). Subroutines 
used to solve a set of complex linear equations were taken from Forsythe, 
et al. (Ref. 10) . 



Table 2 lists all the subroutines used, where they are used, and the 
source of the code. Table 3 lists all of the RT-11 specific features 
employed in this software, and a description of their functions. Appro-- 
priate replacements should be found if this software is to be run .-.nd r 
another operating system. Table k lists the mnemonics used in the cross- 
reference listings. 


The mainlines for each block follow. Listings for the two routines 
which comprise the service routine software are given next. Finally, a 
listing of each subroutine is given. 


omcrmv m 

0F P °OR QUAfJTY 


59 




TABLE 2. SUBROUTINE LIBRARY 


SUBROUTINE BLOCK USED REF 


BALAfTC 

BL0C04, 

BL0C05, 

BALBAK 

BL0C04, 

BL0C05 

DECOMP 

BL0C04, 

BLOCO 5 , 

SOLVE 

BL0C04, 

BL0C05, 

EIGRF 

BL0C04, 

BL0C05 

ELMKES 

BL0C04, 

BL0C05 

ELTRAN 

3L0C04, 

BL0C05 

GMINV 

BL0C03, 

BL0C07, 

HQB ■ 

BL0C04, 

BL0CO5 

HQR2 

BL0C04, 

BL0C05 

LEQT2C 

BL0C06 


LIHEQ1 

BLOC 10 


REWR 

BL0C03, 

BL 0 C 06 , 

BL0C04, 

BLOCOY, 



BLOC 10 

7 


7 

BL0C06 

10 

BL0C06 

10 



» 

7 

./V. 

BLOC 10 

8 



7 

•v.. w 


7 

> * r ' 


9 

'iK'. 

BL0C05 

— 

tr 4 

\ 4 4 

BLOC 10 


" % 



TABLE 3* RT-11 SPECIFIC FEATURES 


CALL ASSIGN (lun, f name) — assigns the file name fname to 

logical unit number lun, and. 
opens file on first READ 

CALL CLOSE (lun) — writes an end-of~file to the 

file name assigned to lun, and 
frees lun ft:o further assignment 

CALL DATE (array) ? — returns correct date as nine 

ASCII characters 

CALL TIME (array) — returns correct system time 

as eight ASCI 1 characters 

CALL TRANSL (in,out,r,p) — replaces character string in 

with character string out after 
modifying all occurrences of 
substring r by substring p 


TABLE 4 . KSJDNICS USED 13? CROSS-REFERENCE LISTINGS 


US-3 HI ARITHMETIC LINE 
a VARIABLE AS SIC NIG) VALUE 

>' LABEL LOCATION DEFINED 

AC ACCEPT 

AG AFsSJMEJJT IN FUNCTION, SUBROUTINE OR CALL 

AS ASSIGN LABEL NUMBER TO VARIABLE 

BD BLOCK DATA 

BS BACKSPACE 

BY BYTE 

CE CLOSE 

CH CHARACTER 

CL CALL 

CM CO^ON VARIABLE 

CN CORMDN NAME • 

CX COMPLEX 

DA DATA 

»E DECODE 

DF DEFINE FILE 

DI D LMENSION 

DP DOUBLE PRECISION 

DO DO 

EF KNTFILE 

EN ENCODE 

EQ EQUIVALENCE 

EX EXTERNAL 

EY ENTRY 

FB . BYTE FUNCTION 

FC COMPLEX FUNCTION 

FD DOUBLE PRECISION' FUNCTION 

FH CHARACTER FUNCTION 

FI INTEGER FUNCTION 

FL LOGICAL FUNCTION 

FN pro 

FD FORMAT 

FR REAL FUNCTION 

III FUNCTION 

GT GOTO 

IF I? 

IN INTEGER 

LG LOGICAL 

OP OPEN 

PA PARAMETER 

PG PROGRAM 

PR PRINT' 

RD READ 

RC READ 

RL REAL 

RW REWIND 

TY TYPE 

VI VIRTUAL 

m WRITS 


OR 


. nr-U INDEX Vi$3 SOURCE LISTING W-AfH-79 12 sSi3:23 PAGE MM1 

C BLOCK 1 - THIS MAINLINE ACCEPTS INPUT OF TOE DIMENSIONS, 

C MNEMONICS AND NON-ZERO ARRAY ELEMENTS FOR THE 

C "FIXED” PORTION OF THE CONTROL PRO! LEM. IT 

C ASSEMBLES MATRICES NECESSARY FOR USE IN THE 

C FILTER AND REGULATOR BLOCKS DOWNSTREAM. 

DIMENSION TITLE (5) ,FNAME (4 ) . 

C MNEMONIC ARRAYS 

trl.MM REAL MMJ (5) ,MWV(15) ,MNY5 (5) ,MNV(15) ,MNT0L(5) , 

+ MNYM(15) ,MNYQ (IS) ,MNXS (5) ,MNXC(ld) ,MNZ(15) 

C INPUT MATRIX ARRAYS 

MM3 DIMENSION CMS (5, 15) ,FS (5, 5) ,115 (5, 5) ,GMC{10, 15) ,GC{lk3, 5) , 

+ CC(lk),5) ,FC(ld,ld) ,!M(15,ld) ,FH(1S,5) ,IK)(15,15) , 

+ FO(15,5) 

C QUTPUr MATRIX ARRAYS 

: BW.J4 DIMENSION F(15, 15), G(15,5) ,GM(15, 15), H(15, 15) ,HR(3J, 15), 

+ El(3d,5),E2(15,5),E3(15,5) 

C INITIALIZE ARRAYS 

i3v3^i35 COMPLEX CB 

iWvLV> DATA G4S, FS,HS,GMC,GC, CC,FC,tM, FM,HO,FO/13S»)*kI. 0/ 

MM 7 DATA F,G,GM,H,m,El,E?,E3/l5B0*d.d/ 

C CONSTRUCT MNEMONICS FOR XS,XC AND Z 

dkWdR DATA MNXS /'XUl ' ,'X02' ,'XB3‘ ,'Xt)4' ,'XB5'/ 

MM9 DATA MNXC /'Xi’S* , 'XB7' ,'XB3' ,'Xd9' ,'XlkJ' , 

+ •xiivxi2Vxi3VxMVxi5'/ 

C OTHER FATA 

BBiJliJ DATA IRl,RiJ,Ofl' /i,B.,(<3.,d.)/ 

OMll DATA IIN , IOUr, IF IN, IFOUT, NDIM 1 , NPIM2, NDIM 3/5 , 7 , 2d , 21 , 5, let, 15/ 

UU012 COWVIO/ IIN, IODr,IFIN, IFOUT 

C GET FILENAME. FOR INPUT £ATA 

traon WRITE (IOU?, IB) 1 

BM14 10 FORMAT (1BX , * PROBLEM DEFINITION - BLOCK 1*,/-,1X, 

+ 'INPUT DATA FILE NAME ? * ,$) 

M01S .READ (I IN, 2d) (FNAME(I) ,I“i,4) 

0B01T, 2d FORMAT (4AM) 

0M17 CALL ASSIGN (IF IN, FNAME) 

C READ PROBLEM TITLE 

dt3t?13 READ(IFIN,3k)) (TITLE (I) ,1*1,5) 

vLW19 3.1 FORMAT (5A4) 

C READ DIMENSION AND CHECK 

iMd23 READdFlN,4d) N>S,NXC,NU,NN,N7.,NYS,NYO 

BBU21 4U FORMAT (7 1) 

BUiS22 I F (NXS. LE . 5. AM). NXC . LE. hi. At®. NU. LE. 5. AND. MV. LE. 15 

+ .AND.NZ.Ln.lS.AND.NYS.LE.S.AND.lVYO.LE.lS 
+ . .AND.NZ.NE.O), 

+ GO TO 5d 
MA2.4 WRITE (IOUr, 45) 

BM25 45 FORMAT (5X, 'DIMENSIONS TOO LAi^GE OR Z IS B') 

B;M2S GO TO Wild 

C READ MNEMONICS 

BUB 27 SU CONTINUE 

f.M2B IF(NU.NE.B) READ(IFIN,f>d) (WUU) , 1*1, NU) 

BBB3B f>B FORMAT (15 (A3, IX)) 

( vMABl tF(NW.NE.d) READ (IF IN, OB) (NMV(I) ,I*1,N.V) 

w IF(NVS.NE.B) REAO(XPIN,<vJ) (MNYS(I),I®1»NYS) 
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00035 READ(IFIN,60) (FNV(t) ,!<=<1,NZ) 

00035 IF{NYS.NE.0) READ(IFIN,fi0) {MNTOL(I) , 1*1, MYS) 

00033 READ (IFIN,60) (MSflfM (I) ,I=l,NZ) 

00039 IF{NYO.'AJ.0> READ (IF IN, <50} {M!«0{I} ,I»l,NYO) 

C READ THE NON-ZERO ELUENTS OF TOE ARRAYS 

00041 70 CALL READUX (NXS,S«,NDIM 1 ,C*S, I ERR) 

0J042 IP(IE2'<R.NE.i) GO TO 70 

•00044 90 CALL REAJWX(NXS,S«S,NOF-U,FS,IERR} 

00045 IF(IERR.NE.l) GO TO 80 

00047 90 CALL READ4X (NYS, !QS , NDF4I, f S, IERR) 

00048 IF(IERR.NE.l) GO TO 90 

00050 100 CALL READMXfNXC,W,NDIM2,CMC, IERR) 

00051 IF(IERR.NT.l) GOTO 100 

00053 110 CALL READMX {NXC»’4I,NDIM2»GC, IERR) 

00054 IF(IERR.NE.l) GOTO 110 

00055 120 CALL READ4XCNJC,hYS,Wm2,OC,IERR) 

00057 IF (I ERR. NR. 1) GOTO 120 

00059 1 3v3 CALL READMX(NXC,»OC,M3IM2,rc,IESR) 

00050 IF(IERR.NE.l) GOTO 130 

00052 140 CALL READ4X{NZ,!OC,NDIM3,«4,IERR) 

00053 IF(IERR.NE.l) GO 70 140 

00055 150 CALL READMX(NZ,WfS,NDIM3 # B4,IERR) 

00055 IF(IERn.NE.l) GOTO 150 

00059 160 CALL READ4X CN¥0,KiC t NDlM3,5D, IERR) • 

00059 IF(IERR.NE. 1} GOTO 160 

00071 170 CALL READMX (NYO, NY5 , NDIM3, FO, IERR) 

00072 IF(IERR.NE.l) GOTO 170 

C READ FILENAME FOR OUrPUT FILE 

00074 FEAD(IFIN,20) (FSAME(I) ,1=1,4) 

00075 CALL ASSIGN (IFOU?,FNAME) 
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c 

( F3 0) 

c 

FORM F » ( ) 

c 

(OC*HS FC) 

00076 

IF(NXS.EQ.O) GO TO 210 

00078 

DO 180 1*1, NXS 

00079 

DO 180 ,J«i,NXS 

00030 180 

F(I,J)«FS(I,J.) 

00081 

IF(NXC. EO. o. cru NVfS.EQ. 0) 

00083 

DO 200 I-1,NXC 

00084 

L=I+NXS 

00085 

DO 200 J*1,NXS 

00086 

DUM«0. 

00097 

DO 190 K“1 , NYS 

00088 190 

DUM^DUM-KIC ( I , K ) *H<3 (K , 3 ) 

00089 200 

F(L,J)«DUM 

00090 210 

continue 

00091 

IF(MXC.EQ.O) GO TO 230 

00093 

DO 220 1*1, NXC 

00094 

II*I4NXS 

00095 

00 220 J«1,NXC 

00096 

J.JHJ4MXS 

00097 220 

F(II,JJ)«FC(I,J) 

00098 230 

COfITINUE 

C 

( O ) 

c 

FORM G « ( ) 

c 

(GC ) 

00099 

IF(NU.EQ.O) GO TO 250 

00101 

DO 240 1*1, NXC 

00102 • 

■II-I4NXS 

00103 

DO 240 

00104 240 

G (II ,J)=GC(I , J) 

00105 250 

continue 

C 

(CMS) 

c 

FORM CM = ( ) 

c 

(CMC) 

00105 

XF(NW. EQ. O) GO TO 290 

00108 

IF(NXS.EQ.O) GO TO 270 

00110 

DO 260 I*1,NXS 

00111 

DO 260 

00112 280 

GM(r,J)*GMS(I,J) 

00113 270 

CONTINUE 

00114 

IF(NXC.EQ.O) GO TO 290 

00115 

DO 280 1*1, NXC 

00117 

T I*I+NXS 

00118 

DO 280 U»1,NW 

00119 230 

GM (II , J)«=OMC (I , J) 

00120 290 

CONTINUE 

C 

FORM U * (FM*'!S U4] 

00121 

IF(NY‘>. EQ. O.CR.NXS.EO. 0! 

00123 

DO 310 1*1, N2 

00124 

DO 310 J=I, NXS 

00125 

DUM*0. 

00125 

DO 300 K*1,NYS 

00127 300 

DUM*DUM+FM ( X,K)*HS (K, J ) 


65 


f 

W-U INDEX VO 3 SOURCE LISTING 10-APR-79 12: 50s 23 PAGE 00004 
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00128 310 

H(I,J)*DUM 

00129 320 

CONTINUE 


00130 

IF(NXC. EQ.0) GO TO 340 


00132 

DO 330 1=1, NZ 


00133 

DO 330 J»1,NXC 

' t 

00134 

JJ<J+NXS 


00135 330 

1! (I »JJ)~HM(I,J) 

■ .... 

00135 340 

CONTINUE 


C 

(FM*HS HM) 


C 

FORM HR » ( ) 


c 

( FO*HS HO) 


00137 

I F ( NYS . EQ. 0 „ OR . NXS . EQ. 0 } GO TO 390 


00139 

DO 350 1=1, NZ 


00140 

DO 380 J=1,NXS 


00141 

DUN -4. 


00142 

DO 350 K*1 , NYS 


00143 350 

DUM=OUM+FM ( I ,K) *HS (K , J ) 


00144 350 

HR (I,J)=DUM 


00145 

IF(NYO.EQ.0) 00 TO 390 


00147 

DO 380 1=1, WO 


00148 

II=I+NZ 


00149 

DO 380 J=1,NX3 


00150 

DUM=0. 


00151 

DO 370 X=1,NYS 


00152 370 

DUM=OUM+FO(I,K)*M5 (K,J) 


00153 380 

HR(II,J)=QUM 

H. ’* 

00154 390 

CONTINUE 


00155 

IF(NXC.EQ.0) GO TO 420 


00157 

DO 400 I»1,NZ 

% 

00158 

DO 400 J«1,NXC 


00159 

jj=a-wxs 


00150 400 

HR (I , JJ } =HM ( I , J) 

i 

00181 

IF(NYO.EQ.0) GO TO 420 


00183 

DO 410 1=1, NYO 


00184 

II=I+NZ 


00165 

DO 410 J»1,NXC 


00165 

JJ=\J+NX5 


00167 410 

HR(n,JJ)=HO(I,J) 


00183 420 

CONTINUE 


C 

(FM) 


C 

FORM El » ( ) 


c 

(TO) 


00159 

IF(NYR.EQ.0) GO TO 450 


00171 

DO 430 1=1, NZ 


00172 

DO 430 J=1,HYS 


00173 430 

El (I , J)=FM (I , J) 

\ 

\ 

\ 

00174 

IF(NYO.CO.0) GO TO 450 

00176 

DO 440 I =i , NYO 


00177 

II=I-WZ 


00173 

DO 440 J=1,NYS 


00179 -140 

E1(II,J)=F0(I,J) . 


00180 450 

CONTINUE 


C 

FORM E2 = FM 


00181 

IF(NYS.KQ. 0) GO TO 470 



/-* f 

OO 

• 

/ 
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130183 
00184 
00135 450 
00105 470 
C 
C 
C 

00187 

00189 

00190 

00191 

00192 480 

00193 490 
C 

00194 

00195 
00195 
00197 
00193 
00199 
00201 

00203 

00204 

00205 
00208 

00209 
00211 

00213 

00214 

00215 
00215 

00210 
00220 
00221 
00222 
00223 
00225 

00227 

00228 

00229 

00230 
00232 

00234 

00235 
00237 

00239 

00240 
00242 

00244 

00245 
00247 

00249 


DO 450 1*1, NZ 
DO 450 .3*1, NTS 
E2(I,0)*FM(i,J) 

CONTINUE 

( 0 ) 

FORM E3 ■ ( ) 

(CC ) 

IF(NXS.EQ.0.CR.NYS.EQ.0) GO TO 490 

DO 400 I*1,NXS 

n«I4NXC 

DO 480 .3*1, NTS QTUC, f\? A f |M r ,‘ 

E3(ii,j)*cc(i,j) 7S 

CONTINUE •' '■ ■■ 

OUTPUT <>i\£A 
XDEN«1 

WRITE (IFOUT) IDEM,NDIM1, (TITLE (I ) , 1*1 , 5) 

IDEM*2 

WRITE ( I FOUT ) IDEN , NXS , NXC , NU , t« , NZ , NTS , NYO 
IDEN*3 

IF (NU. EQ. 0) WRITE (IFCUT) IDEN,IRl,RO 
1F(NU.NE, 0) WRITE (IFOUT) IDEN,KU, (MW (I) ,I 3 l,t^J) 

IDEN k 4 

IF(NW.EQ.0) WRITE(IFOUT) IDEN,IR1,R0 
IF(NW.NE.0) WRITE (IFOIT) IDEN, MV, (MNW(I) ,1=1, NW) 

IDEN=5 

IF (NYS . EQ. 0) WRITE ( I FOUT ) IDEM, 1R 1 , R0 

IF (NYS. NE. 0) WRITE (IFOUT) IDEN, NYS, (MOTS (I ) ,1*1, NYS) 

IDEN*5 

WRITE (IFOUT) IDEM, HZ, (MNV(I) ,1*1, NZ) 

I DEN *7 

IF(NYS.EO.t') WRITE (IFOUT) IDEN,IR1,R0 

IF(NYS.NE. 0) WRITE (IFOUT) IDEN, NYS, (MNTOL(I) ,1=1, NYS) 

I DEN *3 

WRITE ( I FOUT ) IDEN , NZ , ( MOTM ( I ) , 1=1 , NZ ) 

I DEN *9 

IF(NYO.EO.0) WRITE (IFOUT) IDEN,IR1,R0 

IF(NYO.NE.O) WRITE (IFOUT) IDEN,NYO, (MNYO(I) ,1*1, NYO) 

IDEN»10 

WRITE ( I FOUT ) IDEM , NZ , ( MNYM (I) ,I*1,NZ) 

IDEN*11 

IF(NXS.EQ.0) WRITE (IFOUT) IDEN,IRl,R0 

IF(NXS.NE.0) WRITE (IFCUT) IDEN,NXS, (MNXS(I) ,I*1,NXS) 

IDEN-12 

IF(NXC.EQ.0) WRITE (IFOUT) IDEN,IR1,R0 

IF(NXC.NS*0) WRITE (IFOUT) IDEN, NXC, (MNXC(I) ,1*1, NXC) 

IDEN=13 

IF(NXS.EQ.0.On.WN.EO.0) WRITE (IFCUT) IDEN, IR1, IR1,R0 
IF(NXS.hE.0.MO.NN.NE.0) ■ 

+• WRITE (IFCUT) IDEN, NXS,MV, ( (GMS (I , J) , J*l, MW) ,1*1, NXS) 
IDEN«14 

IF (NXS. EQ. 0) WRITE (IFOUT) IDEN, IR1, IR1,R0 
XF(NX£*NEad) 

4- WRITE (IFOUT) IDEM, NXS, NXS, ( (IS (I , J) ,J*1,NXS) ,X"1 , NXS) 
IDEN-15 
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00250 IF(NYS.EQ.0.CR.NXS.£X>.0) MUTE (IFOUT) IDEN, IRl, IRl, R0 

00252 IF (NYS. KE. 0.AND. MXR.ME. 0) 

+ '.WRITE (IFOUT) IDEN # NYS,NX5 ( ((HS(I r J),J*l t NXS)»I®l#l > iVS) 

00254 IDBN-16 . * 

00255 IF(NXC„EQ,0.CR.NW.EO.0) WRITE (IFOUT) IDEM, IRl, IRl, R0 

00257 . . IF (NXC. NE. 0. AND. MV. I®. 0) 

+ WRITE (IFOUT) IDEN,NXC,NW,((G'C(I,J) ,J«l,ftM) ,I*1,NXC) 

00259 IDEM=17 

00250 IF(NXC.EQ. 0.CR.MJ.EQ.0) WRITE (IFCUT) IDEN, IRl, IRl, R0 

00262 IF(NXC.NE.0.AND,NlU«.J). 

+ WRITE (IFOUT) IDEN,N>C f MJ,(-(‘3C(.I,J)#J»l#MJ),'I ,, l#N)«:) 

00264 IDEM* 10 

00265 IF(MXC.EO.0.OR.NYS.HJ.0) WRITE (IFCUT) IDEM, IRl, IR1,R0 

00267 IF(MXC.NE. 0. WD»NYS.>45» 0) 

+ WRITE (IFOUT) IDEN,NXC,NYS, ( (CC(I,J) ,J*1,MYS) ,I=1,NXC) 

00259 IDEN»19 

00270 IF(N'XC.EQ.0) WRITE (IFOUT) IDEM, IRl, IRl, R0 

00272 IF(MXC.HE.0) 

+ WRITE (IFOUT) IDES', NJC.NXC, ( (FC(I,J) ,J=1,NXC) ,I=1,N'XC) 

00274 IDEM-20 

00275 IF(NXC.EQ.0) WRITE (IFCUT) IDEM, IRl, IRl, R0 

00277 IF(MXC.ME.0) 

' + . WRITE (IFCUT) IDEN,5G,N>C,((fW(I,J),J»l,N>4C) ,1=1#^) 

00279 IDEN*21 

00200 IF (NY3.EQ.0) WRITE (IFOUT) IDEM, IRl, IRl, R0 

00282 IF(.MYS.NE.0) 

+ WRITE (IFOUT ) IDEN,KZ ,NY3 , ( ( FM(I , J) , J=1 , NYS ) , 1=1 , NZ) 

00284 IDEN«22 

00205 IF(MYO.EQ.0.ai.NXC.£O.0) WRITE (IFOUT) IDEN, IRl, IR1,R0 

0J287 IF(MYO.NE. O.AND. NXC.JiE<.0) 

+ WRITE (IFCUT) IDEN,WO,N)C,((UO(I,J),J=l,NXC) ,I=l,NYO) 
00209 IDF.N=23 

00290 IF(MYO.EQ.0.CR.NYS.EQ,0) WRITE (IFCUT) IDEN, IRl, IRl, P.0 

00292 IF(NYO.NE.0.AND.NYS.NE.0) 

+ WRITE (IFOUT) IDEN,WYO,NYS, ( (FO(I,J) ,J=1.,NYS) ,I=i,NYO) 

00294 IDEN=24 

00295 NXT=NXC-WXS 

00296 WRITE (IFOUT) IDEN,NXT,NXT, ( (F(I,J) ,J=1,NXT) ,I=1,NXT) 

00297 IDEN«25 

00298 IF(NU.EQ.0) WRITS (IFCUT) IDEN, IRl, IRl, R0 

00300 IF(NU.NE.0) 

+ WRITE (IFOUT) IDEM, SOT’, FU, ( ( j (1,3) ,J=1,NU) ,I=1,NXT) 

00302 IDEN=26 

00303 IF(NW.EQ.0) WRITE (IFCUT) IDEN, IRl, IRl, RO 

00305 IF(S"V.NE.0) 

+ WRITE (IFOUT) IDEN,SOT , IN, ( (GM ( I »J) ,J=1 ,1W) , 1=1 , WXT) 

00307 IDEN*27 

00308 V/RITE (IFOUT) IDEN, t«, NOT 1 , ( (II (I ,J) ,0=1, NOT) ,I“1,NZ) 

00309 IDEN=23 

00310 N7.T=NZ+NYO 

00311 . WF.ITE (IFOUT) IDEN, NZT,NXf, ( (!IR(X,J) *J=1»NXT) , I=1,NZ 4 NYQ) 

00312 IDEN=29 

00313 IF(NYS.EQ.0) WRITE (IFOUT) IDEM, IRl, IRl, R0 

00315 IF(NYS.NE.U) 

' m 




RT-11 INDEX W3 SOURCE LISTING 10-APR-79 12:50:23 PAGE 00307 

+ WRITE (IFCUT) IDEN,NZT,NYS,((El(I,J) ,J®1,NYS) ,I«1,NZT) 

00317 IDEN=3U 

00313 . ' IF(NYS.EQ.d) WRITE (IFOUT) IDEN, IRl, IR1,R0 

0O320 IF(NYS„NE.0) 

+ WRITE (IFCUT) IDEN f NZ,NYS,({E2{I,J),J*l # NYS),I«l,N2) 

00322 IDEN=31 

00323 IF (NY5, EQ. 0) WRITE (IFCUT) IDEN, IR1, IR1,R0 

00325. IF (NYS.NE.0) 

+ WRITE (IFOUT) IDEN,NXT,NYS, ( (E3(I,J) *J®i,NYS) ,1 s8 !,, NX!) 

00327 DO 500 1=32,130 

00328 500 WRITE (IFOJT) I,IR1,IR1,C0 

C THE END 

00329 1000 STOP 

00330 END 
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ASSIGN 

CC 

C0 

DUN 

El 

E2 

E3 

F 

FC 

FM 

FNAME 

FO 

FS 

G 

GC 

CM 

G4C 

GMS 

H 

HM 

HO 

t!R 

HS 

I 


IDEN 


00017CL 
C0003DI 
0000 5CX 
00085 s " 
00144 
0M04DI 
00004DI 
00004DI 
C0004DI 
00003DI 
0000301 
0000 1DI 
00003DI 
00003DI 
00J04DI 
00003DI 
00004DI 
00 00 3D I 
00003DI 
00004DI 
00003DI 
0000 3DI 
0O004DI 
00J03DI 
00015RD 
00040RD 
00094 
00117 
00143 
00154 
00185 
00214’a'R 
0024G‘.'R 
00233WK 
00321WR 


00075CL 

00005DA 

00010DA 

•00083= 

00150= 

00007DA 

00007DA 

00007DA 

00007DA 

0000SDA 

00006DA 


IERR 

IF IN 
I FOUT 


00194= 
002091VR 
00217NR 
00223WR 
0024 MR 
00254= 
002.53WR 
002P1WR 
00294= 
00307= 
0031 PAR 
0004 1AG 
00053AG 
00 05 SAG 
•20 01 IDA 
00035RD 
0001 IDA 
00207NR 
00229.VR 


0001 5RD 

00006DA 

00006DA 

00007DA 

00005DA 

00007DA 

00005DA 

00006DA 

00007DA 

00005DA 

D0005DA 

00007DA 

P0005DA 

Eil 01 3RD 

00074RD 

00097 - 

00119 

00144 

00167 

00189DO 

00/.19WR 

00253WR 

00293WR 

00325WR 

J0195WR 

00207NR 

002.19',%'R 

00229= 

0024 3.VR 

0825SWR 

00269= 

00283WR 

00296WR 


S0308WR 


00321WR 
•.*00421 F 
•00054IF 
000661 F 
00012CM 
0003'mD 
00012CM 
00210.VR 
00 2 2 MR 


00055AG 
0032OWR 
00089 
00152= 
00173= 
00185= 
00192= 
00080= 
00059AG 
0006 5AG 
0O017AG 
00071AG 
00044AG 
00104= 
00053AG 
00112 = 

000 50 AG 
0004 LAG 
00128= 
00052AG 
00068AG 
00144= 
00047AG 
00029RD 
00078DO 
00101DO 
00123DO 
00147DO 
00171DO 
00190 
00 2 2 MR 
00253WR 
00293WR 
00327DO 
00195= 
00208= 
00220 = 
002 31V, ’R 
00244= 
00253WR 
00271WR 
00284= 
00297= 
00309= 
00322= 
00044AG 
00055AG 
0005CAG 
00017AG 
00.338RD 
00075AG 
00212VR 
00231V, R 


00089 00192 0026SWR 


00125= 
00153 
00179= ■ 
00 32 MR 
0032RVR 
00089= 
00097 
00127 
00074RD 
00152 
00030 
00301WR 
00104 
00119= 
.00119 
00112 
00135= 
00135 
00167 
00153= 
00080 
00032RD 
00030 
00102 
00127 
00143 
00173 
00192 
00225WR 
00253WR 
0030MR 


00127= 00120 
0031 R’/R 


00141= 00143 s 


00097= 00296'VR 
0027MR 

00143 00173 00185 00283NR 

00075AG 

00179 00293WR 

0024SWR 


00253, VR 
00305WR 
00258WR 
0024 'WR 
00308WR 

00160 0027O/R 

■00 28 MR 
00160= 

00127 
00034RD 
000B3DO 


00120 

00152 

00178DO 

00199NR 

0022OWR 

00268WR 

00306WR 


00167= 

00143 

00035RD 

00084 

00110DO 

00132DO 

00157DO 

00177 

0020ZVR 

00233VR 

00273WR 

00303WR 


0031 1WR 
00152 
000 37RD 
00083 
00112 
00135 
•00160 
00179 
00207.VR 
00 2 3 PVR 
00273WR 
00311WR 


0032CWR 
00197VR 
v!021v : WR 
0022 MR 
00233WR 
00 24 SNR 
00259= 
00273VR 
00289.VR 
00 299a R 
0031 MR 
00324V, ’R 
00045IF 
00 057 IF 
00 059 IP 
000 IBRD 
00040RD 
00 19 MR 
00214WR 
00 2 3 MR 


00198= 
0021ZVR 
00222 = 
00234= 
0024SVR 
00261WR 
00274= 
00288WR 
00 30 MR 
00312= 
0032QVR 
00047AG 
00059AG 
00071 AG 
80020RD 
0-0074RD 
C0197VR 
00217.VR 
0023MR 


00200WR 

00213= 

00224WR 

00235.VR 

00249= 

00263.VR 

0027MR 

00289= 

00302= 

003 14’ -/R 

0O04GIF 
000501 F 
000721 F 


00202NR 

00214WR 

00226WR 

00 2 3 MR 

•00251WR 

002-54= 

00278WR 

00 29 IV ’R 

00304WR 

00316VR 


00253WR 
00 03 3RD 
00093DO ■ 
0011600 
00139DO 
0016300 
00183DO 
00212VR 
00 24 3a - R 
00283WR 
00316WR 

00203= 

00215= 

00227= 

00239= 

00253',’R 

0026MR 

00279= 

00293WR 

00 32 SNR 

00317= 


00050AG 00051IF 
00052AG 00053 IF 


0002SRD O0032RD 00034RD 


0,0 20, MR 00207-m 0020MR 
0021 PVR 00 2 2 MR 00224’VR 
00 2 3 PVR 00241WR 00243.VR 
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00247.‘;R 

00269.sR 

002O6WR 

00306WR 

00326WR 

II 

00094= : 


00164= i 

IIN 

0001 IDA 

10 

00012CN 

IOUT 

0001 IDA 

IR1 

00010DA 

00241V'R 


00281WR 

0032EWR 

J 

00079DO 

00103DO 

00128 

00152 

O0172OO 

002434R 

00283WR 

0031KVR 

JJ 

00095= 

K 

000 3700 

b 

00034= 

MWOL 

00002RL 

MNU 

00002RL 

!4NV 

00002RL 

MNN 

00002RL 

MNXC 

00002RL 

MNXS 

00002RL 

MMM 

00002RL 

MNYO 

00002RL 

MNYS 

00002RL 

MNZ 

00002RL 

,NDIM1 

0001 IDA 

NDIM2 

0001 IDA 

NDIM3 

0001 ID, A 

NU 

00020RD 


00199IF 

00301WR 

NW 

00 02 3RD 
0011300 
00255IF 

nxc 

0002BRD 
00031 IF 


00 130 IF 
00237IF 


00265IF 

00278WR 

NXS 

00 02 3RD 

00084 

0v3121XF 


00187IF 


00248WR 00 2 5 IV, 'R 00253WR 
00268WR 00271WR 00273WR 
00288WR 00291WR 00293WR 
00309WR 00311WR 00314WR 
0032KVR 

00097 00102a 00104 

00167 00177a 00179 

00012CM 00015RD 


0025SWR 00258WR 00261WR 00263WR 
00276V/R 2027OWR 00281WR 002O3WR 
00296WR 00299WR 00301WR 00304WR 
0031G.VR 00319WR t»321WR 00324WR 


00117® 00119 
00190= 00192 


00148® 00153 


00012CM 00013#J 00024VR 

00200WR 0020SWR 00210WR 00217NR 00224WR 00231WR 06236WR 
0024f»NR 00251WR 00256NR 00261WR 00267.VR 00271VR 00276WR 
002SSWR 00291WR 00299AR 00304WR 00314WF. 00319WR 00324WR 


00080 

00104 

00133DO 

00153 

00173 

00248WR 

0028DNR 

00321WR 

00097 

00038 

00089 

00037RD 

00029RD 

00035RD 

00032RD 

00009DA 

0000SDA 

00 03 3RD 

0B04ORD 

00034RD 


00B85DO 

00 11 IDO 

00134 

00158DO 

00178DO 

00253WR 

00293‘.'R 

00326.VR 

00134= 

00i28DO 


00033 

00112 

00135 

00159 

00179 

00258WR 

O0297.VR 


00089 

0011CDO 

00140DO 

00160 

00184DO 

00263WR 

00301WR 


00095DO 

00119 

00143 

00165DO 

iW105 

0026SWR 

00303.VR 


00095 

0012^DO 

00144 

00166 

00191DO 

00273NR 

00308WR 


00097 

00127 

O0149DO 

00167 

00192 

00278'a'R 

00311WR 


00135 00159= 00160 00166= 00167 

00127 0014200 00143 00151DO 00152 


00219VR 

00202WR 

00214WR 

00207.#? 

00232WR 

00233‘IR 

00221WR 0B228WR 

00223NR 

0021 2'?R 


ORIGINAC PA'GE IS 
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00 04 LAG 00044AG 00047AG 00195WR 
00052AG 000 5 BAG 00056AG 00059AG 
00062AG 000 6 5 AG 0006 BAG 00071AG 

00022IF 00023IF 00029RD 00053AG 00099IF 00103DO 00197WR 
00201IF 00202WR 00260IF 00262IF 00263WR 00293IF 00300IF 


00022IF 
00197-JR 
00257IF 
000221 F 
00033DO 
001 3300 
0023SVR 
00267IF 
002C5IF 
00022IF 
00035DO 
0012400 
0018900 


00031IF 

00204IF 

00258WR 

000 5 BAG 

00091 IF 

001 551 F 

00255IF 

00263WR 

00287IF 

0O041AG 

00094 

00134 

00197-/R 


00032RD 

00205IF 

00303IF 

iW05. BAG 

00093DO 

001 5300 

00257IF 

00270IF 

0028SNR 

00044AG 

00095 

00137IF 

00230IF 


00 041 AG 
00207,' ‘,’R 

mm? 

00056AG 
0009500 
001 6500 
00253WR 
00272IF 
00295 
00047AG 
00102 
001 4000 
00232IF 


00 050 AG 
0024 61 F 
00306WR 
•00 059. AG 
00 10 IDO 
00190 
00 2 60 IF 
00273WR 


001 061 F 
00242IF 

00052AG 
00 114 IF 
00197.*, ’R 
00262IF 
■00275IF 


0011100 

00243WR 

0'3058AG 

0011600 

00235IF 

0J263WR 

00277IF 


00 076 IF 0007300 0007900 
00 103 IF 00 11 000 00117 
00 14 900 00159 00166 

00233WR 00240IF 00242IF 


71 



Rp-li INDEX V03 CROSS REFERENCE LISTING 10-APR-79 12:50:23 PAGE (30010 

00243WR 00245IF 00247IF 0024 OtAR 00250IF 002527.F 00253WR 00295 

NOT 00295= 00290AR 00301WR 00306WR 00300VR 00311WR 00327WR 

NYO 00020RD 00022IF 00039IF 00040RD 00069AG 00071AG 00145IF 0014700 

00161IF 0016300 00174IF 00176DO 00197AR 00223IF 00225IF 00 2 2 SNR 

00285IF 00287IF 00283WR 00 2 90 IF 00 2 9 21 F 00293WR 00310 00311WR 

NYS 00020RD 00022IF 00033IF 00034RD 000351 F 0003 7RD V0047AG 00058AG 
0005SAG 00 071 AG 00031IF 00087DO 00121IF 00125DO 00137IF 00142DO 

001 5100 001G9IF 00172DO 00178DO 00181IF 0018400 00 107 IF 00191DO 

00197AR 00209IF 00211IF 00212AR 0021.GIF 00 21 OIF 00219WR 00250IF 

00252IF 00253WR 00285IF 00257IF 0026SWR 00280IF 00282IF 00283WR 

00290IF 002921 F 00293WR 00313IF 00315IF 0031OAR 00318IF 00320IF 

00321WR 00323IF 00325IF 0032GWR 

NZ 00020RD 00472IF 00035RD 00038RD 000G2AG 00065AG 00123DO 00132DO 

001 39DO 00148 00157DO 00164 00171DO 00177 0018300 00197AR 

00214'a'R 00221WR 00228.VR 00278WR 00283WR 00308WR 00210 00311WR 

00321WR 

NZT 00310= 00311WR 00 31 GAR 

REACMX 00041CL 00344CL 00047CL 00050CL 00053CL 00056CL 00059CL 000S2CL 
C0065CL 00063CL 00071CL 

R0 00010DA 0020IMR 002094R 00210AR 00217AR 00224WR 00231WR 0023GAR 

00241WR 00 2 4 GAR 00251WR 00256WR 00261WR 00256WR 00271'\'R 00276WR 

00281WR 002CGAR 00291KR 00299AR 00304WR 00314WR 00319WR 00324WR 

TITLE 0000101 00018RD 00199AR 

10 00013WR 00014* 

100 00050* 00052GT 

1000 0032GCT 00329* 

110 00053* 00055GT 

120 00056* 00058GT 

130 00059* 00061GT 

140 00052* 00064GT 

150 00055* 00067GT 

160 00068* 00070GT 

170 00071* 00073GT 

180 00078DO 00079DO 00080* 

190 00087DO 00088* 

20 00015RD 00016* 00074RD 

200 00083DO 000 0500 00089* 

210 00077GT00082GT 00090* 

220 00093DO 00095DO 00097* 

230 00092GT 00098* 

240 0010100 0010300 00104* 

250 00100GT 00105* 

260 0011000 00 11 IDO 00112* 

270 00109GT 00113* 

280 00116DO 00118DO 00119* 

290 00107GT 0011 SET 00120* 

30 00018RD 00019* 

300 0012SDO 00127* 

310 00123DO 00124DO 00128* 

320 00122GT 00129* 

330 00132DO 0013300 00135* 

340 00131GT O0136* 

350 00142DO 00143* 

360 00139DO 00140DO 00144* 
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370 

00151DO 00152* 


380 

00147DO 

00149DO 

00153* 

390 

O0139GT 

00 14 GST 

00154* 

40 

00020RD 

00021* 


400 

00157DO 

, 00153DO 

00150* 

410 

0015300 

00155DO 

00167* 

420 

0015GGT 

00162GT 

00168* 

430 

0017100 

00172DO 

00173* 

440 

00176DO 

0017800 

00179* 

45 

00024WR 

00025* 


450 

001703T 

00175GT 

00180* 

450 

00183DO 

00184DO 

00185* 

470 

001C2GT 

00185* 


480 

00189DO 

0019100 00192* 

490 

00183GT 

00193* 

' - ■ 

50 

00023GT 

00027* 


500 

00327DO 

00320* 


50 

00029RD 

00030* 

00032RO 00034RD 00035RD 00037RD 00038RD 00040RD 

70 

00041* 

0004 3GT 


80 

00044* 

00045GT 


90 

00047* 

00049GT 
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00001 

C 

c 

c 

c 

00002 

00003 

00004 

00005 10 
00005 
00008 
00010 
00011 
00012 

C 

c 

c 

c 

00013 20 

00014 

00015 30 
00015 

00017 40 

00018 

00019 50 

00020 

00021 50 

00022 
00023 


SUBROUTINE READ4X (IMAX, UMAX, NROW, ARRAY, IERR) 

ROUriNE READ MATRIX ELEMENT OF THE FORM: 
r,J„VALUE 

CHECKS FOR DIMENSIONS OUT OF RANGE AND FORMS: 

ARRAY (I, UPVALUE 
COMMON/IO/ IIN,IOtrT,IFIN,IFOUT 
DIMENSION ARRAY (NROW,JMAX) 

READ(IFDi,10,ERR=50) I, J, VALUE 
FCRMAT(2I,E) 

IF(I .GT» IMAX. OR. I. LT. 0. OR. J.Gf . JMAX.OR. J. LT. 0) GOTO 30 

IFd.EQ.0) GO TO 20 

ARilAY (I,J)=VALUE 

IERR=0 

RETURN 

ERRORS : IERR=1 - 1=0 INDICATING TERMINATION OF DATA FOR 

THIS MATO IX 

IERR=2 - DIMENSIONS OUT OF RANGE 
IERR=3 - WRONG FORMAT ON INPUT 

IERR=1 

RETURN 

IERR=2 

WRITE (IOUT, 40) I, J, VALUE 

FORMAT (5X,' DIMENSIONS OUT OF RANGE FOR * ,3X,2I3,E15.6) 

RETURN 

TERR=3 

’WRITE (IOUT, 50) 

FORMAT (5X,* WRONG FORMAT') 

RETURN 

END 
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ARRAY 00001 AG 0U003DI 00010= 

I 00004RD 00006IF 00008IF 00010 0001WR 

I ERR 0000 LAG 00011= 00013= 00015= 00019= 

IF IN 00002CN 00004RD 

IFOUT 00002CM 

IIN 00002CM 

I MAX 00001AG 00006IF 
10 00002CN 

IOUT 00002CM 0001 SNR 00020NR 

J 00004RD 0000GIF 00010 0001SNR 

J;MAX 00001AG 00 00 3D I 00 00 5 IF 

NROW 00001AG 00003DI 

READMX 00041SU 

VALUE 00004RD 00010 0001S.NR 

10 00004RD 00005* 

20 000093T 00013* 

30 00007GT 00015* 

40 0001GNR 00017* 

50 00004RD CU019* 

50 0002iWR 00021* 
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C 

C 

c 

&JM1 

c 

MM2 

MM3 

C 

MM<i 

C 

AMOS 

jams 

c 

«M7 ' 
MM8 It 

tW t 
■JMil 
(3M12 12 
CIMU 

m*h<i 
AMIS 
.Wifi' 14 
M.U7 
M.U8 2J 
C 
C 
C 

c 

c 

c 

c 

c 

e 

c 

c 

c 

c 

c 

AVI 9 

M.'2l 
AV23 
*\V,2S 
.V ’27 
AV29 
CM 31 
•wj3 
AV35 
I.1M37 
>V,13<? 
AV41 


HLDCK2 - CONTROLLED ELEMENT ANALYSIS 
SETS' *JP A TRFN PILE FCR .mfSfER FUNCTION ANALYSIS 
OF THE CONTROLLED ELEMENT. 

DIMENSION FN\ME(5) , TITLE (15) 

POTUErt FILE I-PIP' MATH ICES 
REAL MNU (5) ,MM*(1S) ,MNY3 (5) ,v.'.?(15) .MSYO (IS) ,MNXC(li» 
DIMENSION GMC (U1, IS) ,GC.(1J,S) ,CC(U',5) ,rC(U,ltJ) » 

+ (M(15,W),JD(iS,I5),El(33,5) 

ttTOKIt*) SPACE 
REAL MN(«*),mm( 25).'- 
CViA 

DATA I!M,IO*JT,lPFW,rraFN /S, 7,2,1,21/ 

DATA IW, ItJ,A2,Al, IPLU3 ,a1 /2M, 2M. , '♦' ,1./ 

READ PRORLEM FILE .NAME, TITLE AND TRFN FILE NAME 

write fioirr, 1»1) 

FCR'^TCUIX,- 'CONTROLLED EtE 4 ENT DEFINITION - SLOCK 2',/, 
«- ?X, 'INPUT PROBLEM FILL NAME ? 

RRAO(UM,2,1) (FN\ME(I ) , I®1,M) 

CALL ASSIGN (IPFIN,FNAME) 

WRITE (IO'JT, 12) 

FCRMAT(2X, ‘OUTPUT. TRFN FILE NAME 
READ (I IN, 20) (FNAME(I) ,1*1,4) 

GAIL ASSIGN (ITRFN.FNAME) 

WRITE (lO'ir, 14) 

FCRMA?(2X, 'TRFN TITLE (M CU\RS) 

R£AD(IIM, 20) (TITLE (I), 1*1, 15) 

FORMAT (15.V,) 

READ THE FOLLOWING FROM T.IS PROBLEM FILE: 

DIMENSION IDEN*2 
U MNEMONICS I DEW =3 
W MNEMONICS IDCN«4 
YS MNEMONICS IDEN-S 
Y MNEMONICS IDENap&10 
yr. mnemonics ioen*12 

GMC MATRIX I DEN*) A 
IDEN«17 
10EM*18- 
IDFN*19 


,5) 


',$) 


•) 


ORIGINAL PAGE IS 
OF POOR QUALI TY 


GC MATRIX 

cc matrix 

FC MATRIX 
UM MATRIX 
HO MATRIX IDEN*22 
El MATRIX IDSN-29 
DO 23 K»i,-2iW 
READ ( I PF IN , 1710*35 ) IDEM 

IFdDEN.EO. 1) READ(IPFIN) I DEN, NXS , MXC , N»J f *1Q M2 , NY.; , *-70 
IF(IDEN.F?.2) READ (IFF IN I IDEM, MX, (MNU (I ) ,1*1, NX) 

IF (IDEM. EC. 3) READ(IPFIM) IDEM, NX, (F.'W(I) ,1*1, NX) 

IF(IDEM. EC*. *) READ (IP” IN) .IDEM, NX. (MNYS (I), 1*1, NX) 

IFUDEN.ro. R) READ ( I-PF IN ) IDEM, NX, («WO(I),I«i,NX) 

IF(IC2M.E0.9) READ (I IT IN) 'IDEM, MX, (MMZ(l),I-l,NX) 

I r ( IREN . E'J. 1 1 ) READ (I PF IN ) IDEM, NX, ( MNXC (I) , 1*1 . NX) 

IF (IDEM. E?. 15) HEAD ( I PF iH ) IDEM/NX, NY , ( (GMC(I, J) ',J»1 ,M/) , T*l,LX 
IF i IDE-J. t'O. \fi) READ (I l'? IN) IDEM, MX, MY, ( (TG(X,J) ,J*1. W) ,1*1 ,' ? X) 
IF (IDEM. EQ. 17)- REAPdPFIN) ' I DEN, MX, NY, ( (CC(I ,J) ,J°T , ’*¥) ,1*1, NX) 
IFdDEN.EC. 18) REAP(IPFI\'} IDS N,NX,NY, ( (PC(I,J) , J * 1 , NY ) , I * 1 , MX ) 
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»W*W3 IF(IOEN.EO. 19) READ(IPFW) IDEM, NX, W, < <HM(I, J) ,1-1, NX) 

iW45 IF(IDEN.ECUl) READ(IWIH) IDEM, NX, NV, ( ,J«1, MV) ,1-1, NX) 

W| M 7 IF ( I DEN. EQ. 23) READ ( I PF IN } IDEM, NX, NY, ( (El (I,J) , J»1,NY) ,I«1,NX) 

00049 30 CONTINUE ' ' 

AMSA 35 NY=NZ+NYD 

VWSl NW«NW-W)C 

W052 CALL CLOSE (IPFIN) 

C (SI-FC O) 

C FORM LHS » ( ) * (NXC,NXC NXC,?7Y) 

c ( -HM .. I) (NY,N)C: NY,W) 

c ( -no ) 

00053 tF(N)C.EO.il) GO TO <55 

00055 DO 40 I=1,N>TI 

vW055 DO 4,J 

0iMS7 AW. 

000S8 IF(I.EQ.J) Al°l. 

O0O6O X«-FC(I,J) 

00051 IFfAl.EO.O. .AND.X.EO.E.) GO TO 43 

«M*W WHITE (ITOFN, 83) l,J,A2,Al,X,K0 

000*4 40 continue 

00065 A 1®0. 

00066 DO 50 l«l,NZ ' 

00057 II«I+NXC 

00058 DO 50 j>l,NX? 

AWW IF(!H(l,J).E0.0.) GO TO 50 

00071 x«-:h(i,j) 

MW WRITE (ITRFM, CO) II,J,A2,A1,X,X0 

00073 50 CONTINUE 


00074 IF (UYQ. D3. 0) GO 70 55 

00076 CO 60 1=1, NYO 

00077 IX^I+NXC+NZ 

00078 DO 60 .7=1 , NXC 

00079 IF(1!O(I,J).EQ.0.) GO TO .60 

00031 X*-:iO(I,J) 

‘•0032 WRITE ( ITRFN, 30 ) II, J,A2,A1,X,K* 

00093 60 CONTINUE 

00034 65 DO 70 1=1, NY 

0003 5 II=I+N>SC 

00036 70 WRITE ( ITPFN, 30 ) II,II,A2,Al,Xl,Kt! 

00037 30 FORMAT (2 1, 32, I) 

00038 WHITE (ITRFN, CO) 10 



c 

(GC CC 

G*’C) 

(NXC,NU 

NXC,NYS NXC, NX) 


c 

FORM RHS » ( 

i » 

( 

) 


n 

w 

(0 Si 

o > 

(NY, .'ll 

NY, NTS MY, TV) 

00039 


IF(NXC.EU.O) GO TO 105 




00091 


IF(MU.EO.O) GO TO 95 




00093 


no 90 i*i,mxc 




00094 


DO 90 ,7 = 1, NXC 




00095 


IF(3C(I,J).£Q. ?.) CD TO 

90 



00097 


XCC(I,J) 




00093 


WRITE (ITRFN, 80) I,J,A2, 

A1,X,K0 



00099 

90 

CONTINUE 




00100 

95 

CONTINUE 




0010 i 


IF(MYS.ED.O) GO TO 115 





* ** ***** 9 ■** * ,1 .... 
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00103 

DO 100 X »1 , NXC 

00104 

DO 100 J*1,NYS 

oaios 

J0«C4NU 

Ml Mi 

IF(CC(I,J).EQ„3.) GO TO 100 

ooioa 

X»CC(I,J) 

00109 

WRITE (ITRFN, 80) I ,JJ, A2,A1,X,K3 

ooiia j.oo 

CONTINUE 

oom 105 

DO 110 I«l,NY 

00112 

ii=i+nxc 

win 

DO 110 0=1, NYS 

ooii4 

JJ=G4NU 

00115 

IF(E1(I,J).EQ«3.) GO TO 110 

00117 

X k E1 (I,J) 

win 

WRITE (ITRFN, 80 ) I I , JJ , A2, A1 , X, K3 

00119 no 

CONTINUE 

0012c ns 

CONTINUE 

00121 

IF(NW, EQ, 0,(TR, NXC.FQ. 0) GO TO 125 

00123 

DO 120 .1*1, NXC 

00124 

DO 120 .1=1, NW 

00125 

JJO+NU+NYS 

00125 

IF(GMC(I,J).EC.O.) GO TO 120 

00123 

X=GMC(I ,J) 

Ml 29 

WRITE (ITRFN, flO ) I,JJ,A2,A1,X,K3 

oona 12a 

CONTINUE 

03131 125 

WRITE (ITRFN, 80) 10 

C 

C04P9SE COLUMN CODES 

a.; 132 

IP(N5C.EQ.0) GO TO 140 

00134 

DO 130 1=1, NXC 

pans 1 3a 

MN(I)=MNXC(I) 

wi 35 14 a 

CONTINUE 

.50137 

DO 150 1*1, NZ 

00138 

ii=i+nn: 

00139 150 

4N(II)**4NZ ( I ) 

0014 a 

IF(MYO.EO.O) GO TO 170 

00142 

DO ISO I=l,NYO 

00143 

II=I+NX24NZ 

00144 150 

•MN(II)»MNY3(I) 

00145 170 

CONTINUE 

00145 

IF(NJ.EQ.O) GO TO 193 

00149 

DO 180 1=1, NU 

00149 ICO 

MM(I)«MNU(I) 

00150 190 

CONTINUE 

00151 

IF(NYS.EQ.O) GO TO 210 

00153 

DO 200 1=1, NYS 

00154 

II=l*NU 

00155 200 

•V4(II)=MNYS(I) 

00155 210 

CONTINUE 


M157 IF{NW.E?.0) GO TO 23, 5 

UO 1 59 DO 220 I“1,NV 

aona ii»i+nx?;+nu 

iMlf'l 22a MM(II)“M\W{I) 

c write title, matrix dimensions and column codes 

a.!162 23a WRITE (ITRFN, 20) (TITLE (I) ,1=1,15} 

00153 v=ncwy 
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00164 M-NUWJYS4NW 

00165 WRITE (ITRFN, 2*10) N,M,I0 

00166 240 FOUATPI) 

00167 IF(N.LE.IP) CO TO 270 

00169 WRITE (ITRFN, 250) (NN(I) , 1-1,18) ,IPLU3 

00170 250 FORMAT (1 7A 4 , A3, Al ) 

00171 IF(N\tE.3S) CO TO 26.9 

00173 WRITS (ITRFN, 250) (MN(I) ,1*19,35) ,IPLUS 

00174 WRITE (ITRFN, 25<5) (MN(I) ,I»37,N) 

00175 GO TO 230 

00175 250 WRITE (ITRFN, 2501 (MN(t) ,T“19,N) 

00177 GO TO 200 

00173 270 WRITE ( ITRFN, 250) (MN(I) ,I a l,N) 

00179 230 CONTINUE 

001 M IF(P.LE.IB) GOTO 290 

001C2 WRITS (ITRFN, 250) (M4(I) ,1-1,19) JPLU3 

00133 WRITE (ITRFN, 250) (K4(I ) ,I«*19#M) 

00194 GO TO 300 

00185 290 WRITE (ITRFN, 250) (W4(I) ,I«1,M) 

C TRE END 

00185 300 STOP 

00187 END 






RT-U INDEX V03 CROCS REFERENCE LISTING 10-APR-79 13: vMs 17 PACE MM 5 
ASSIGN 00010CL 00.314CL 

Al 0C006DA 00057* .30, 559® .3.3051 IF 000S3WR 00065* JJ»572 , NR 00087NR 
.Wim-m iioo^r'ajmsnr iWnes’R 00129/m 
A2 CijjiIoda »?v , 3<>jvr \mi2m w^i8z*m 0003WR 00098WR 00109WR 00118WR 
■M125WR 

CC &J003DI 00040RD 00106IF *30108 

CLOSE . A3J52CL 

El 00.30301 A1048RD AI11SIF 00117 

FC P0003DI 00042RD A3040 

FM\ME 0000101 .30.509RD AW IMG O0*313RD AJ014AG 

GC 00 00 3D I 80035RD 00095IF 000 97 

CMC AW .5 30 r .M035RD AU2SIF- .30128 

U4 00*30301 00044RD 80069IF 00071 

110 A? .50 3D I A3046RD JO 079 IF 000S1 

I , D0M9RD 00 01 3RD *5v3017RD 00O24RD 00026RD 00023RD 0.J030RD AW32RD 

00034RD i\1.336RD 00039RD 0004ORD 00042RD 00044RD O0046RD 00043RD 

0005500 .W058IF 0.5.360 .30053WR 00046DO 00067 000491F .30071 

JAWQO A) 077 00O79IF 00031 0008400 00005 0009300 .50095IF 

00097 00093WR 0010300 00 104 IF 00108 00109NR 0011100 00112 

00115IF 00117 0012300 00126IF 00123 00129WR 0013400 00135 

0013700 00133 00139 00142DO 00143 00144 .5.314800 00149 

001 5300 00154 00155 001S9DO 00160 00i61 00142.VR 00169VR 

00173NR 00174'aR 00175WR .3017CVR 00187*. ’R 0-0183WR 00185-/R 

IDEN ’0020RD 00021IF 00D22RD 00023IP 00024RD 00025IF 0002'RD 00027IF 
00 02 CRD 00029IF 00O30RD 00031IF 00032RD 00033IF P.3034RD 00036IF 

00036RD J0037IF 00.338RD 00039IF 00040RD 00041IF 00042RD 00043IF 

00044RD 00 04 51 F 00044RD 00047IF 00 04 CRD 

II 00047a 00v572iVR 00077= A0032WR 00035= 0308SWR 00112= .3011 CNR 

00133= 00139 00143= 0.5144 00154= 00155 00160* 00161 

IIN 00005DA 00009RD 00013RD 00017RD 

TOUT 00005OA 00007, VR C0011WR 0001 a-’R 

IFF IN 00005DA 00010AG 00020RD .30022RD 00024RD C0026RD 0002ORD 00030RD 

C0032RD 00034RD 00036RD P003BRD 0004 0RO 00042RO A3044RD 00046RD 


00 04 3RD 00052AG 

I PLUS 00005DA 00169WR 00173WR 00182VR 

ITRFN 00005DA A2014AG 0004.1WR 00077.\'R 00007, VR 00024WR itf03&*R A3098:CR 



00 10 9/,' R 

00 11 CNR 

00129.s’R 

00131VR 

00162WR 

0.H6SWR 001 69a R 

00173NR 


00174WR 

0017.4WR 

0017CNR 

00132s’R 

O018J4R 

D01O5WR 



Id 

00 00 40 A 

00.33CWR 

00131WR 

00165WR 





J 

00034RD 

0003PRD 0O040RD 

0004 2RD 

00044RD 

00046RD 0004CRD 

0005600 


0005CIF 

00040 

00043-m 

0004300 

00 049 IF 

00071 

00 077a R 

0007800 


00079IF 

00031 

0.3O82WR 

00 094 DO 

00095IF 

00097 

00097NR 

0010400 


00105 

001 051 F 

A3 109 

0011300 

00114 

00115IF 

00117 

001 241X3 


00125 

00126IF 

00128 






JJ 

00105* 

.30109WR 

00114= 

0011RvR 

•00125= 

00129.VR 



K 

0001900 








Kfl 

00004OA 

00129.VR 

00043VR 

C0072WR 

.50.332 VR 

00085WR 

08098WR 

0010SWR 

.30 11 CNR 

M 

00144= 

00149NR 

A3 1 8.31 F 

0OlC3f-m 

.wiROvn 




m 

00004RL 

00149* 

00155= 

00161= 

0.31C7VR 

001P7VR 

001O5WR 


MN 

0O004RL 

00178 ,, .'R 

00135* 

00139= 

00144* 

00169NH 

&U73WR 

0*3 174" NR 

00177NR 

MNU 

00002RL 

00024RD 

00149 






MNW 

, 00002RL 00 02 CRD 0016,1 

Q ‘0 





** 

« 


■ ■ ■. - S V>, 
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MN3C 

00002RI. 

MNYO 

00P02RL 

MNYS 

00002.RL 

MM2 

il.10.12RK 

N 

00163= 

MU 

0.1 02 3RD 
00180 

NW 

00022HD 

NX 

00028RD 
0004 0RD 

NXC 

00022RO 

C007CDO 


0012300 

NXS 

00022UD 

NY 

0.10 3 3RD 
0003400 

NYO 

0.1022RO 

MYS 

P0.122RD 

nz 

00022RD 

TITLE 

0.1 00 ID I 

X 

00050= 
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XI 


<50135 

04144 

00155 

00139 

00167IF 

00105 


00034RD 
0003/RD 
00028RD 
O0.332RD 
O0155WR 
.30091 IF 
O.U'.vl 

00051* 00121IF 
00026RD 0032CRD 
0/044RD 
000 531 F 
00O89IF 
0013400 


O0X71IF mi74wr 
00114 00125 


0/093WR 

00J05DA 


O0042RD 
00051 
00085 
0413? TF 
00150 
0003FRD 
0011100 
00050 
OO101IF 
00050 
O0017RD 
00051 IF 
00103“ 
00036WR 


001 2400 
00030RD 
00046RD 
11005500 
000 9300 
00138 


A3157IF 
00032RD 
00 04 3RD 
0005300 
0009400 
00143 


0/178WR 

00146IF 

0015900 

00034RO 

00057 
001 0300 
00183 


00172WR 
001 48DO 00154 

•00184 

00 ,13 3RD 00038RD 


0005800 

00112 


00040RD 
00153 
00074 IF 
001 0400 
000.5500 
00162WR 
00063WR 
00109WR 


000427.D 0O044RD 04046RD 0J048RD 

0015300 


.1007500 0014.HF 
0011300 00125 
00077 .3013700 


0014200 

00151IF 

00143 


.10071= 0007ZVR 00031 s 0003Z\'R 

00117= 00118',\'R 00128= 00129.VR 


00077 

00121IF 


00050= 

.10164 

00097= 


100 

0,110300 00104DO 00 107GT 00110* 

105 

.10090GT 00 111* 

110 

0011100 0011300 00116GT 00119* 

115 

001.123T 00120* 

12 

00.1 1 1WR 00012* 

120 

00123DO 0012400 001273T 00130* 

125 

.101223T 00131* 

130 

00134DO 00135* 

14 

0001 5*’R 00016* 

140 

0013TIT 00135* . 

150 

0013700 00139* 

160 

0014200 00144* 

170 

00141GT 00145* 

180 

00148DO 00149* 

190 

0/14702 00150* 

20 

00009RD 0001 3RD 00.U7RD 00013* 

200 

0015300 00155* 

210 

00152ST 00155* 

220 

0/16900 00161* 

23.1 

0O15SGT 00162* 

280 

001554R 0016-5* 

250 

00165-vR 00170* 00173WR 00174M 

/.nesvR 

250 

00172GT 00176* 

270 

001 (OUT 001 78* 

' 280 

0/175GT 00177GT 00179 

250 

00181GT 00185* 

30 

0/01900 00.349* 


CV1I0INM; PACK TS 

or poor quai.it y 


oonown ooioz-m miomr 


300 44184GT 00186* 

35 00.320RD 00054* 


Q 1 
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iJMS5DO *W>2ST 

iWOSSDO M.ttQDO M.TA1GT ^73* 

M17SD0 vWv57KX> AWBtfGT CWJ083* 

0.W54GT tMISZT Wi3C4* 

Mjemo vM^bs* 

JMf)3WR vU.37Z.vR iM.33Z.v'R W.^S^s’R vMv3S7* Mi388WR M393WR WlvJSMR 
MlltNR v\U29WR W131WR 
O0.593DO WJ94DO ' .5M95GT ' *3399* 

3M92GT t\.Uv30* 


; 
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C 

C 

C 

c 

►mu 

c 

MM2 

C 

MM3 

MOM 

c 

MOOS 

C 

oooos 

00007 

c 

00003 

00009 

c 

00010 
00011 

c 

00012 

c 

00013 

00014 

c 

00015 
0001 S 10 

00017 
000 IP 

00019 

00020 12 
00021 
00022 

00023 

00024 14 

00025 
0002 ' 20 
00027 
00023 22 

00029 

00030 25 
C 
C 

r* 

c 

c 

c 

c 

c 

c 


flLOCi; 3 - THE FILTER PROBLEM SET-UP 

^*TS **»IS SINGULAR OR NON-SINGULAR 
FILTER PROBLEM USING THE DATA GENERATED by BL/V'K 1 
AND ADDITIONAL INPUTS flO AND RD. 1 

DIMENSION FN\ME(4) # nW.V(5)',SCAt£U5) 

INPUT MATRIX ARRAYS ' 

DIMENSION 00(15), RD(15) 

PROBLEM FILE INPUT MATRIX ARRAYS 
REAL MNV(15) ,MNZ(15) ,MNXT(15) ,MNXS (5) ,MMXC(10) 

1 S Sf ' GU5 - 5 ’ •<"<»<“> 

BU W&g unai - a ' 

■EQUIVALENCE (ARRAY, TARRAY) , (ARRAY, Tl) , (ARRAY, ARM) , 

* . (ARRAY (223 ) # T2) , (^RRAY MSI) T?n 

EQUIVALENCE (XINVRT,A),(DUMVY?,T7) } 

COMMONS 

COMMON/IO/ irN,IO*JT 
CQ4, MON/NONAME/ NOIM3 
INITIALIZE ARRAYS 

/1 920*0./ 

DATA I IN, IOUr, IPFIN, II’FOUT /5, 7, 20, 21/ 

DATA II , RO, 1900 , LASTID, M3IM 3, NDIMS /1,0.,9J0.31 15 3V 
READ PROBLEM FILE NAMES AND REGULATOR TITLE ^ 
WRITE (IOUT, 10) ULb 

FORMAT (20X, 'FILTER SET-UP - BLO^K 3* / 2X 
+ 'INPUT PROBLEM FILE NAME ? • fj ' ' 

READ (I IN, 20) (FNAME(I) ,1*1,4) 

CALL ASSIGN (IPFIN, FRAME) 

WRITE (IOUT, 12) 

F(RMAT(2X, 'OUTPUT mOBLEM FILE NAME *> • Si 
READ (I IN, 20) (FHAME (I ) , 1*1, 4) 

CALL ASSIGN (IPFOUT,FNAME) 

WRITE (IOUT, 14) 

F0R-1AT(2X, 'PROBLEM TITLE (20 CHARS) ; • $) 

READ (I IN, 20) (TTLMi-Wfl) , J=l, 5) • ’ 

FORMAT (5A4) 

WRITS (IOUT, 22) 

FORMAT (2X, 'AUGMENTATION CONSTANT • ' 

READ(riN,25) ACONST * 

FORMAT (E) 

GET THE FOLLOWING DATA FROM 'HIE PROBLEM pup. 
DIMENSIONS IDEN*2 UU " . 

IDEN=5 
IDEN*10 
IDEN«1U12 
I DSN =2 4 
IDEN=25 
IDEN=25 
IDEN=27 
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V MNEMONICS 
Z MNEMONICS 
X MNEMONICS 
F MATRIX 
C MATO IX 
GM MATRIX 
II MATRIX 


nrr-n 

U0031 

.30032 

00033 

00035 

00037 

00039 

►70041 

00043 

00045 

00047 

O0049 

00051 

00052 

00053 

00054 

00055 
00057 
■00053 
0059 
0005 0 

00052 

00053 

00054 

00055 

00057 

00058 

00059 
00070 

00072 

00073 

00074 

00075 
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DO 40 ’<*1,200 

READ (IPF IN, END** 2) IDEN 

IF(IDEN.EQ.l) READ (IFF IN) IDEM,NXS,NXC, NU,NW,NZ # NYS,NYO 
IF(TDEN.EQ. 5) READ (IPF IN) IDEN, NX, (NNV (I) ,1*1, NX) 

IF(IDEN.EQ. 9) READ(IPFIN) IDEM, MX, (MMZ ( I ) , 1*1 , NX) 
tF(IDEN.EO.10) READ (IPF IN) IDEM, MX, (MMXS (I) ,1*1, NX) 

IF (IDEM. EO.il) READ ( I PF W) IDEM, NX, (MNXC(I) , 1*1, NX) 
IF(IDEM.EQ.23) READ(IPFIN) IDSN,NX,NY, ( (F(I ,J) ,J*1,NV) ,1*1, NX) 

I F ( I DEN . LQ. 24 ) READ ( I PF IN ) IDEM , NX , NY ; ( (G ( I , J ) , J*1 , NY ) , 1*1 , MX ) 

I F ( IDEM . EQ. 25 ) READ ( IPF IN ) IDEM ,NX,NY, ( (G-1(I,J) ,J*1,MY) ,1*1, MX) 
IF(IDEM.EO. 25) READ(IPFIN) IDEM, MX, MY, ( (!1(I,J) ,J*1,NY) ,1*1, MX) 
40 CONTINUE ' 

C READ QD A’© RD 

42 WRITE (IOUT, 45) 

45 FmMAT(2X, 'MOM-ZERO DIAGONAL 0 ELEMENTS : ') 

50 CALL RRAD4I ;MW,QD, IERR) 

IF(IERR.ME.l) GO TO 50 
WRITE (IOUT, 55) 

55 FORM AT (2X, 'MOM-ZERO DIAGONAL R ELEMENTS : ') 

50 CALL REAB4X (NZ , RD, IERR) 

IF (IERR.*©. 1) GO TO 50 

C READ AMD WRITE PROBLEM FILE, CCf-IPOS El MG MEM TITLE 

REWIND IPF IN 

CALL REVRdPFIN, IPFOUT,TTLNEW, 1900, LAST I D , ARRAY , IARRAY) 
NXT=MXC+MXS 
IFC' , XS.EQ.0) GO TO 54 
DO 52 I=1,NXS 

52 MMXT (I )~MMXS (I ) 

54 CONTINUE 

IF(MXC. EQ. 0) GO TO 53 
DO 55 I*1,NXG 
II=I+NXS 

55 MNXT ( 1 1 )-*NXC ( I ) 

53 CONTINUE 
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c 

SEE m? G, CM AND H HAVE FULL RANK 

0007r, 

DO 70 1*1, NOT 

00077 

DO 70 7=1, NU 

00078 70 

DUMMY(I,J)=C(I,J) 

00079 

CALL CM IMV (NOT, NU , DUMMY, XINVRT^R, 0) 

00030 

IF(v|!..\-E.MJ) WRITE (IOUT, 90) 

00082 30 

FCRMAT(5X,'G MATRIX DOES NOT HAVE FULL RANK') 

00093 

DO 90 1=1, NOT 

00034 

DO 90 j=i,m«; 

00035 90 

DUMMY { I , J ) =*T*1 ( X f J ) 

00035 

CALL G’M INV (NXT , N'V , DUMMY, XINVRT, MR, 0 ) 

00037 

I F ( NR , LT. M.'.'-N XC ) MUTE (IOUT, 10 J) 

00039 100 

FORMAT (5X, '.GM MATRIX DOES NOT HAVE FULL RANK') 

*5M9»J' 

DO 110 1=1, NZ 

00091 

DO 110 J=1,NOT 

00092 110 

DUMMY(I,J)=H(I,J) 

00093 

CALL G4INV(NZ,N)Cr,DUHMY,XINVRT,MR,0) 


IF(MR.NE.NZ) MIITE (TOUT, 120) 

00095 120 

FORMAT (5X,'H MATRIX DOES MOT HAVE FULL RANK ' ) 

c 

HERE WE SHOULD TEST FOR THE DETECTABILITY OF (F !!) , 

C 

BUT WE DON'T DO THAT. IF (F H) IS NOT DETECTABLE, 

c 

. THERE '7 ILL BE CLOSED LOOP ROOTS IN THE RIGHT-HALF PLANE 

c 

IS THIS A SINGULAR FILTERING PROBLEM? IF SO, 

c 

REORDER RD, 11, MNV AW MNZ. 

iMiJ97 

DO 125 1=1, NZ 

00093 

DO 125 J =1 , NZ 

00099 

TZ(I,J)=0. 

00100 125 

* 

it 

• 

00101 

M2P=0 

70102 

DO 140 1=1, NZ 

00103 

II-7Z-I+1 

00104 

IF(RD(II) .K'E.O.) GO TO 140 

00105 

M2P=M2P+1 

00107 

IFd.Ei2.M2P) GO TO 140 ' 

00109 

DUM=RD(II) 

00110 

RD(II)=RD(II+1) 

00111 

UD (1 1+1) WUM 

00112 

DO 130 J=1,NXT 

00113 

du*i=h (ii ,j) 

00114 

H (II ,J)=H (II+l, J) 

00115 

HREOR(II,J)=H(II+l,J) 

00116 

H (II+1,J)=DU‘1 

00117 130 

URDOR (I I+i , J) =DUM 

00113 

DO 135 J =1 , NZ 

00119 

DUM=TZ(II,J) 

00120 

TZ (II,J)=TZ (II+l, J) 

00121 135 

T7 ( 1 1 +1 , j ) =DUi*1 

00122 

DUM=>MMV(II) 

00123 

MNV ( T I ) =MNV (I I +1 ) 

00124 

MNV(II+1)=DUM 

00125 

DU M- MNZ (II ) 

00125 

MNZ (II) =MMZ (II+l) 

00127 

. MNZ(II+1)=DUM 

00123 140 

CONTINUE 
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00129 

C 

00131 

00132 

00133 

00134 

00135 
00135 

00137 

C 

00138 

00139 

00140 

00141 144 
C 

n 

00142 ~ 

00143 

00144 

00145 

00146 

00147 

00148 

00149 

00150 145 

00151 

00152 

00153 

00155 

00156 

00157 
00153 
00159 150 
00150 160 
00161 
00162 

00163 

00164 170 

00165 
00165 
00167 
00163 

00169 

00170 180 

00171 190 

00172 200 


00173 210 

00174 

00175 

00176 215 

00177 


IF(M2P.F.Q. 0) GO TO 700 

WRITE MNEMONICS AND TZ TO OUTPUT PROBLEM FILE 
IDEN=LASTID+1 

WRITE (IPFOUT) IDEN,NZ, (MNV(I) ,I=1,NZ) 

IDEN=IDEN+1 

WRITE(IPFOUT) IDEN,NZ, (MNZ<I) ,1=1, NZ) 

M1=NZ-M2P 

M2-42P 

MlP*NXT-M2 

MAKE T1 THE IDENTITY MATRIX 
DO 144 1=1, NXT 
DO 144 J=1,NXT 
T1(I,J)=0. 

Tl(I,I)=1.0 

SINGULAR FILTERING PROBLEM - REORDER STATE TO CAUSE 
H22 TO HAVE FULL RANK. 

DO 200 NCOL=l,M2P 
NBCOL=NXT-NCOL+l 
NC=NCOL 
DO 146 I=1,M2P 
1 1 “I -Hi 

DO 146 J=l,NCOL 
JB=NXT-J+1 
JC=MCOL-J+l 
DUMMY(I,JC)=H (II, JB) 

NC=NCOL 

CALL GMINV(M2P,NC, DUMMY, XINVRT, MR, 0) 

IF(MR.EQ.NCOL) GO TO 200 
DO 160 L=1 , HZ 
DUM=H(L,NBCOL) 

DO 150 -1=1 , NBCOL-1 

MRACK-'IBCOL-M+l 

H (L ,MBACK ) =! I (L , MBACK-1 ) 

M(L,1)=DUM 
DUMN-4NXT (NBCOL) 

DO 17v^ L=l, NBCOL-1 

L8ACK=MBC0L-L+1 

MNXT (LBACK) =M NXT (LBACK-1 ) 

MMXT(1)=DUMN 
DO 190 L=1 , MXT 
DUM-fl (L,N3C0L) 

DO 130 M=l, NBCOL-1 

M BACK=NBCOL-M+l 

T1 (L,MBACK)=T1 (L, MBACK-1 ) 

T1(L,1)=DUM 

CONTINUE ■ ■■"• 

(10) 

FORM T2 = ( ) 

(H21 1122) 

continue 

DO 215 1=1, NXT 
DO 215 J=1,NXT 

T2(I,J)=0. . 

IF(MlP.EQ. 0) GO TO 245 
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00179 

00180 220 
00181 
00182 

00183 

00184 

00185 240 
001C3 245 

00187 

00188 

00189 

00190 

00191 250 
C 

00192 

00193 

00194 

00195 
00193 253 

00197 255 

00198 

00199 

00200 257 

00201 

00202 

00203 258 

00204 

00205 

00206 

00207 

00208 

00209 

00210 
00211 
00212 

C 

C 

C 

C 

00214 

00215 

00216 

00217 

00218 260 

00219 270 

00220 
00221 
00222 

00223 

00224 230 

00225 290 

00226 
00227 


DO 220 I=1,M1P 

T2(I,T)=1.0 

DO 240 1=1, M2P 

II=I+Ml 

IK=I+M1P 

DO 240 0=1, M IP 

T2(IK,J)=H (II, J) 

DO 250 1=1, M2P 
11=1+41 
IK=I+M1P 
DO 250 J=1,M2P 
J J=J +M XT—M 2P 
T2(IK,JJ)=H (II, JJ) 

COMPUTE T=T2*T1 AND TI 
DO 255 1=1, HOT 
DO 255 J =1 , NXT 
DUM=0. 

DO 253 K=l,NXr 
DU M=DU M +T 2 ( I , K ) *T 1 (J,K) 

DUMMY (I , J ) =DUM 

DO 257 1=1, NOT ‘ 

DO 257 J =1 , NOT 
T2(l;J)=DUMMY(I,J) 

CALL GMINV (NOT, NOT, DUMMY, T2I , MR, 0) 

DO 258 1=1, M1P 

CALL TRANS L (MNOT, MNOT, * E ' , ' X ' ) 

TDEN=IDEN+1 

''/RITE ( I PFOUT ) IDEM , NOT , ( MNOT ( I ) , 1=1 , M IP ) , 

+ (MNZ(I) ,I=l+Ml,Ml+M2) 

IDEN=IDEN+1 

WRITE (IPFOUT) IDEM, NZ , NZ, ( (TZ (I , J) , 0=1, NZ) ,1=1, NZ) 
IDEN=IDEN+1 

WRITE (IPFOUT) IDEM, NXr, NOT, ( (T2 (I, J) ,J=l,IsOT) ,1=1, NOT) 
IDEN=IDEN+1 

WRITE (IPFOUT) IDEM, NXT, NOT, ( (T2I (I,J) ,J=1,NXT) ,1=1, NOT) 
IF(MlP.EQ, 0) GO TO 545 
TRANSFORM F, C, GM: 

F=T2*F*T2I 

GOT2*C> 

GM=T2*GM 


DO 270 1=1, NOT 
DO 270 J =1 , NOT 
DUM=0. 

DO 260 (<=1 , NOT 
DU:M=DU’4+T2(I,I<}*F(K, J) 
DUMMY (I , J ) =DUM 
DO 290 1=1, NXT 
DC 290 0=1, NXr 
DUM=0. 

DO 280 K=1 , NOT 
DU.M=DUM+DUMMY(I,K)*T2I (X,J) 
F(I,J)=DU:M 
DO 310 1=1, NOT 
DO 310 J=1,NU 
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rt-u 

00228 

00229 

00230 

00231 
<30232 

00233 

00234 

00235 
00235 
00237 
00239 

00239 

00240 

00241 

00242 

00243 


00244 

00245 
00245 
00247 
00243 

00249 

00250 

00251 

00252 

00254 

00255 
00255 
00257 
00259 . 

00250 

00251 

00252 

00253 

00254 

00255 
00255 
00257 
00259 

00270 

00271 

00272 

00273 

00275 

00276 
00273 
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DUM-0. 

DO 300 K=1,MOT 
300 DUM=OJJM4T2(I,K)*G(K,J) 

310 DUMMY ( I , J ) =DUM 

DO .320 1=1, NOT 
DO 320 J=1,NU 
320 G (I , J)=DUMMY (I , J) 

DO 340 1=1, NOT 
DO 340 J=1,NM 
DUM=0. 

DO 33.3 K=1 , NOT 

330 DU"«1=DU'W2(I,K)*GM(K,J) 

340 DUMM Y ( I , J ) =DUM 

DO 350 1=1, NOT * 

DO 350 J=1,NW 
350 Gi4(I,J)=DUHMY(I,J) 

C DETERMINE THE RANK OF G>l2*QD*GM2T AND IF RANK IS NOT 

C FULL, AUGMENT. 

DO 410 ISQR=1,M2 
DO 400 1=1, ISQR 
II=I+M1P 
DO 400 J=1,ISQR 

jj=j+mip 

DUM=0. 

DO 390 K=1 , 

390 DUM=DUM+GM ( I I , K) *GM ( J J , K ) *QD (K ) 

IF(I.EQ.J) DUM=DUM+ZETA(I) 

400 DUMMY (I ,J)=DU : »1 

IS=ISQR 

CALL GMINV(IS,IS,DUM<MY,A,MR,0) 

IF(MR. LT.ISQR) ZETA(ISQR)=ACa'IST 
410 CONTINUE 

DO 425 1=1, M2 
II=IW1P 
DO 425 J=1,M2 

DUM=0. 

DO 420 K=1,NW 

420 DUM=DUM-K3M ( 1 1, K) *GM (JJ,K) *QD (K ) 

IF(I.EO.J) DUM=DUM+ZETA(I) 

425 DUMM Y ( I , J } =DUM 

CALL GMEW(M2,M2,O>1MY,A,MR,0) 

IS=0 

DO 428 1=1, M2 
IF(ZETA(I).Gr.0.) IS=1 

428 CCNTINUE 

IF(IS.EQ.l) WRITE (TOUT, 429) 

429 FORMAT (5X,'GM.2*QD*GM2T HAS BEEN AUGMENTED’) 



\/ 
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00302 

00303 

00304 

00305 
00305 
00307 500 
00303 510 

00309 

00310 

00311 

00312 

00313 

00314 

00315 520 
00315 525 
00317 

00319 

00320 

00321 

00322 

00323 

00324 530 

00325 540 


FORM UPPER LEFT QUADRANT OF ARM : 
Fll-GMl*QD*GM2r*(GM2*QC , *GM2r)I*F21 

DO 440 1=1, M1P 
DO 440 J=1,M2 
JJ=J+MiP 
DUM=0. 

DO ^30 K=1,N.M 

DUM=DUM4GM ( I , K) *GM ( JJ , K ) *QD (K ) 

DUMMY (I,J)=DUM 
DO 450 1=1, M1P 
DO 450 J=1,M2 
DUM=0 . 

DO 450 K=1,M2 

DUM=OUM4DUMMY(I,K)*A(K,J) 

DUMMY 2 (I , J) =DUM 
DO 430 1=1, M1P 
DO 430 J=l,iMlP 
DUM=0. 

DO 470 K=1,M2 
KK='<+M1P 

DUM=DU M+DUMM Y 2 ( I , K ) * F ( KK , J ) 

ARM (I , J)-F (I , J)-DUM 

FORM THE LO.'/ER RIGHT QUADRANT OF ARM, VMICH IS THE NEGATIVE 
TRANSPOSE OF THE UPPER LEFT QUADRANT. 

DO 490 1=1, M1P 
DO 490 J=1,M1P 
ARM(I+M1P, J+MlP )=-ARM (J, I) 

FORM THE LO'’ER LEFT QUADRANT OF ARM: 

-H11T*R1I*H11 - F21T*(GM2*QD*GM2T) I*F2i 
DO 510 1=1, M1P 
DO 510 J=1,M2 
DUM=U. 

DO 500 K=1,M2 
KK=K+M1P 

DUM=DUM+F (KK , I ) * A (K , J ) 

DUMMY ( I , J ) =DUM 
DO 525 1=1, M1P 
ii=i-h>iip 
DO 525 J=1,,M1P 
DUM=0. 

DO 520 K=1,M2 
XK=K4MlP 

DUM=DUMH)UMMY(I,K)*F(KK,J) 

ARM (II , J)=-DUM 
IF (Ml. EQ. 0) GO TO 545 
DO 540 1=1, M1P . 

II=I+MlP 

DO 540 J=1,M1P 

DUM=0. 

DO 530 K=1,M1 

DUM=DUM-H (K , I ) *H (K , J ) /RD (K ) 

ARM ( 1 1 , J ) =DUM+ARM ( 1 1 , J ) 

FORM THE UPPER RIGHT QUADRANT OF ARM: 

-GM1*QD*GM1T + GMl*QD*GM2T*(GM2*QD*GM2T) I*GM2*QD*GM1T 
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nrr-i: 

00326 

00327 
00323 

00329 

00330 

00331 

00332 

00333 

00334 

00335 
0033*5 
00337 
00333 

00339 

00340 

00341 

00342 

00343 

00344 

00345 
0034ft 
00347 
00349 

00349 

00350 

00351 

00352 

00353 

00354 

00355 
00355 
00357 
00353 


00359 

00350 

00351 
00362 
00353 
00334 
00355 
00355 
00357 
00253 
00359 

00370 

00371 

00372 

00373 

00374 

00375 

00376 

00377 


I INDEX V03 SOURCE LISTING 


10-APR-79 02:03:32 PACE 00003 


545 DO 560 I»i,MlP 
DO £50 J**1,M2 
.JJ=0+MlP 
» DlM=0. 

DO 550 K»1,NW 

550 DUM*3XT4+0M ( I , K) *GM (JJ, K) *QD (K ) 

550 DU-1MY(I,J)=0UM 
DO 580 1=1 /-HP 
DO 590 J=1,M2 
DlM=0. 

DO 570 K=i,M2 

570 DUrt=OUM+rxH<iY (I , K)*A(K, J) 

580 DU-4' :Y2{I,J)=')Ui4 

DO 600 1=1/419 
DO 500 
DUM =0 , 

DO 590 K*1 ( M2 
KK=XM1P 

590 DtlM*ODWw M Y2 (I, K)*GM (>(K, J) *DD (J ) 

500 DUMMY(I,JJ=DUM 
DO 620 I ®! , M IF* 

DO 520 
DtJM=0. 

DO 510 K=1,NW 

61 0 DU 4=0'JN14C£WY (I,K) *GM (J,K) 

620 DUMMY2(r,J)=DUM 
DO 540 1=1, ‘UP 
DO 640 J=1,M1P 
JJ=9T+MlP 

DU‘*'=vV 

DO 630 K*i,NW 

630 ntJ -POIM-G* { I,K)*GM { 7 , K) *0D {K ) 

•64 0 AR-t (I , JJ ) =r?J-4 4DUMMY 2 ( I , J j 


WRITE-INS POLLO.vI'h'G TO Tits PROBLEM FILE: 

t - II ,*• 12,F2i , F22,G1,G2,GM1,GM2, HREOR, Hll , H12, R22, 00, RD, ARM 
I D Z I DE M+l 

WRITE (IPPOUT) IDEM,MIP,MIP, ( (F(I,J) ,1=1, MlP) 
IDEM«IDEN^1 

WRITE (IPFO/F) IDSN,M1P,M2, { (F(I,J) ,J~41P+1, NXT) ,I=1,M1P) 
IDEN=IDEN’+1 

WniTS(IPFOJT) IDEN.M2,M1P, ( (F(X,J) ,J=l,,MlP) , I=MlP+l,NOT) 
IDEN=IDEN+1 

'OUTE (IPFOrr) IDEN,M2 f M2, ( (F(I ,J) ,J®MlP+l,Ntf;) , r=MlP+l,MXT) 

IDEN-IDBJMrl 

WRITE (IPFCU?) IDEN.M1P, Wf, { (G (1,0) ,J*1,MI) , I»l,,MlP) 
XBEN'»IQKNH r 7 

WRITE (IPFOJT) IDEN r M2,MJ, { (G (I,J) , r=MlP+l,NXT) 

IDEN=IDEM+I 

WRITE (IPFOJT) IDSeV*UP,hW, ( (GM(I,J) ,J*1,W) ,I-l,MlP) 

IDEM =1 DEN +1 

write (iprarr) ids‘4,h2,;«, ( (gm(i, j) ,j=i,nw) ,i-^ip+i,;ot) 

IDEM*»rOEN*X 

NX*Mi4M2P 

NY«<*1IP+M2 


r\ 

cbL 
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00378 WRITE (tPFCUT) IDEM, NX, NY , ( (HREQR (I ,3 ) , J°1 » NY) > I a l , NX) 

00379 IDENaIDEN+1 

00330 IF(MUFQ.O) WRITE (IPFOUT) IDEM, II, II, nO 

00382 IF(Nl.NE.O) 

+ WRITE (IPFOUT) IDEM,Ml,MlP, ( (!1 (1,0) ,J B 1,M1P) ,1*1, M l) 

00334 IDSN=IDEN+1 

00385 IF (Ml. EQ. 0) WRITE (IPFCUT) IDEM, 11, II, RO 

00337 IF(Mi.ME.O) 

+ WRITE (IPFOUT) IDHN,M.l,M2, ((H(I,J),J-M.U 5 +l,N)Cr),I=l,Ml) 

00339 IDF.N«TDE.M+1 

00390 WRITE (IPFOUT) IDEM, M2, M2, ( (II (I,J) ,J=f4lP+l,NXT) ,I*MH-1,NZ) 

00291 IDEN*IDENH 

00392 WRITE (IPFOUT) IDEN, Ht, (QD (I) ,1=1, MV) 

00393 IDSN«IDEN+1 

00394 WRITE (IPFOUT) IDEN,NZ, (RD(I) ,I»1,NZ) 

00395 ID£N*tOBN+l 

00396 NUM«*1iP*2 

00397 V'RITE (IPFOUT) IDEN, MUM, NU4, ( ( AR-1 ( T. , J ) ,J*1,NUM) ,1=1, NUM) 

00393 IDENvT.DEN+I 

00399 WRITE (IPFOUT) IDEM, M2, M2, ( (A(I,J) ,J«1,M2) ,1=1, M2) 

00400 IDEN=IDEN+1 

00401 WRITE (IPFOUT) IDEN,Ml,MlP,M2,M2P 

: 00402 GO TO 900 

C FOR R IDENTICALLY SINGULAR 

00403 645 DO 555 K=l,3 

00404 IDEM=IDEN+1 

00405 655 WRITE (IPFCUT) IDEN, 11,11, R3 

00406 IDESMDEN+1 

00407 WRITE (IPFCUT) IDEN,M2,M2, ( (F(I,0) ,0-1, M2) ,1=1, M2) 

00409 IDEM*ID£N+1 

00409 WRITE (IPFCUT) IDEN, II, Il,R0 

00410 IDEM*IDEN+1 

00411 '•RITE (IPFCUT) IDEN,M2, MJ, ( (G (I, J) ,J*1,NU) , 1=1, M2) 

00412 IDF'I-IDEN+i 

00413 WRITE (IPFOUT) IDEN, II, II, R3 

00414 IDEN=IDKM+1 

00415 WRITE (IPFOUT) IDEN,M2,NW, ( (CM(I,J) ,J*1,M'/) ,1*1, M2) 

. 00416 DO 650 K*l,3 

00417 IDEN*IDBN+1 

00419 550 WRITE (IPFOUT) IDEN, II, II, RO 

00419 IDEN*IDEN+1 

00420 WRITE (IPFCUT) IDEM, M2, M2, ( (H (I ,J) ,J-1,M2) , 1=1, M2) 

00421 IDEN*IDEN+1 

00422 ' WRITE (IPFOUT) IDEN # NW, (QD ( I ) ,1-1, N.V) 

00423 IDEM=IDBM+1 

00424 WRITE (IPFOUT) IDEM, NZ, (RD(I) ,1*1, NZ) 

00425 IDEM-IDEN+l 

00426 WRITE (IPFCUT) IDEN, 11, II, RO 

00427 IDEN=IDEt-M-l 

00428 WRITE- (IPFOUT) IDEM, 11, II, RO 

00429 IDEN-IDEN+l 

00430 WRITE (IPFCUT) IDEN,Ml,MlP,M2,M2P 

H 00431 GO TO 900 
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C 

C 

c 

c 

00432 700 

00433 

00434 710 

00435 
00435 
00437 
004 3S 

00439 

00440 720 

00441 730 

00442 

00443 

00444 

00445 
00445 

00447 740 

00448 750 

00449 

00450 

00451 

00452 

00453 750 


00455 
0O455 
00457 770 


00453 

00459 

00460 

00461 

00452 

00453 

00464 775 

00465 
00456 

00467 

00468 

00469 

00470 

00471 

00472 

00473 

00474 

00475 

00476 780 

00477 
00473 
00479 


NON -SINGULAR FILTER 

( F -GQGT) 

ASSEMBLE ARM = ( ) 

(-HTRI1I -FT ) 

DO 710 1=1, NOT 
DO 710 J=l, NOT 
ARM(I,0)=F(I,J) 

DO 730 1=1, NOT 
II=I+NXT 
no 730 0=1, NOT 
DUM=0. 

DO 720 ’<=1 , 1'K 

DUM=DU«H i (K , I ) *11 (K , 0 ) /RD (K ) 

ARM(II,J)=DUM 
DO 750 1=1 , NOT 
DO 750 J =1 , NOT 
00=0 +N XT 
DUM=0. 

DO 740 K=1,NU 

DUM=DUM-G (I,K)*S (J,K)*QD(K) 

ARM(I,00)=OUM 
DO 750 1=1, MOT' 

II=I+MXT 
DO 760 0=1, NOT 
00=0 +NOT 

AR>1 ( 1 1, J J ) =-F ( J , I ) 

WRITE THE FOLLOWING TO THE PROBLEM FILE: 

MNEMONICS, Tl,T,Tr,F,G,GM,il,QD,RD AND ARM 
DO 770 1=1, NOT 
DO 770 0=1, NOT 
DUMMY (I,J)=0. 

DUMMY (I , I)=l. 0 
IDEN=LASTID+1 

WRITE (IPFOUT) IDEN, NZ,(MNV(I), 1=1, NZ) 

IDEN=IDEN+1 

WRITE (IPFOUT) IDEM, NZ, (MNZ(I) ,1=1, NZ) 

IDEN=IDEN+1 
DO 775 1=1, MOT 

CALL TRANS L (MNOT,MNOT', 1 E ' , ’ X 1 ) 

WRITE (IPFOUT) IDEM, MOT, (MNXT (I ) , 1=1 , NOT) 

IDEN=IDEN+1 

WRITE (IPFOUT) IDEM, NOT, NOT, ( (DUMMY (I , J) ,J=1,NOT) , 1=1, NOT) 
IDEN=IDEW+1 

WRITE (IPFCUT) IDEN,NOT,NOT, ( (DUMMY (I ,J) ,J=1,NOT) ,1=1, MOT) 
IDEN=IDEM+1 

WRITE (IPFOUT) IDEN, NOT, NOT , ( (DUMMY (I , J) ,J=1,NXT) ,1=1, NOT) 
IDEN-IDEN+1 

WRITE (IPFOUT) IDEM, NOT', NOT, ( (F(I,J) ,0=1, NOT) ,1=1, NOT) 

DO 780 1=1,3 
IDEN=IDEN+1 

WRITE (IPFajT) IDEN, II, II, R0 
IDEN=IDEN+1 

WRITE < IPFCUT) IDEN, NXT , MJ , ( (G (1,0) ,0=1, MJ), 1=1, NOT’) 
IDEN=IDEN+1 
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'am 

,0491 
00402 
00483 
(50 4 84 
00485 
(504 85 
(50487 
00488 
00409 

00490 

00491 793 

00492 

00493 
(5*1494 
(5.3495 
0(5496 
00497 
00493 

00499 

00500 

00501 * 

00502 

C 


00503 900 

00504 910 

0.5505 1 000 STOP 
00506 END 


WRITE ( I PFCUT ) IDE N , 1 1 , 1 1 » R0 

K‘5S« jow.hw.ih. ^ .**•*> 

iden=iden+i t 

WRITE ( I PFCUT ) IDEM , 1 1 , 1 1, W 

SS& iWH.W.«C f .((Htt^)^.HW>.W-'« 

vmiTEUPFOUr) IDEN,N7.,NXT,((H(I,J) ,J«1,.NXT) ,1-1, NZ) 

DO 79 ,5 1-1,2 

IDEN-IDEN’+l , ■ ■„ 

WRITE (IPFOUT) IDEN, 11, 11. RO 
IDEM-IDEM+1 .. ... 

WRITE ( I PFCUT ) IDEN, M, (QD (I ) , I"1 r M ) 

write' ( ipporr) idem, nz , (rd ( i ) , 1=1 , nz) 
iden-idem+i 

"JSTm-Ojr) IDEN, 

IDEN-IDEM+1 

WRITE (IPFOUT) IDEN, II, II, Rw 

IDEN=IDEN+1 __ 

'WRITE (IPFOUT) I DE N , NZ , NXT , M 2P , M 2P 
THE END 

DO 910 I-IDEN+1 , 133 ( - 

WRITE {I PFCUT ) I, II, II. R^ 
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A 

000v77DI 

00O09EQ 00012DA 

00256AG 

0027OAG 

00290 

00307 *70337 


00399’,'iR 







ACONST 

00029RD 

00258 





00325= 00353= 

ARM 

00005DI 

0O0O8EQ 

0001 2DA 

00293= 

003.71= 

0*7316= 


00397NR 

00434= 

00441= 

00448= 

*70453= 

00493WR 


ARRAY 

00*3.7601 

0*7*703EQ 

00O63AG 





ASSIGM 

0O*318CL 00022CL 





00121 *70122= 

DUM 

001*39= 

*7*7111 

00113= 

00116 

*70117 

00119= 

*7*7124 

0*7125= 

00127 

00156= 

.7016*7 

00167= 

00171 00194= 


00195= 

00197 

00215= 

00218= 

0*7219 

00222= 

*70224= 00225 


0*7223= 

00230= 

0*7231 

00237= 

*70239= 

00240 

00249= *70251= 


00253= 

00254 

00264= 

00256= 

00268= 

00269 

00232= 00284= 


*70285 

*7.7288= 

00290= 

0*7291 

00294= 

*30297= 

00293 00304= 


00307= 

00303 

*70312= 

00315= 

00316 

*7*7322= 

00324= 00325 


*70329= 

00331= 

*70332 

00335= 

0.7337= 

00333 

00341= 00344= 


00345 

0*7348= 

0*3350= 

*70351 

00355= 

00357= 

00358 0*7438= 


0044*3= 

*70441 

0*7445= 

00447= 

00448 


0*7*3 93AG 0*715*5= 

L'JMMY 

OO006DI 

00*778= 

00079AG 

0*7035= 

00085AG 

*5*7092= 

00152AG 

•07197= 

*30200 

0*72*7 1AG 

00219= 

0*7224 

00231= 0023-7 


0024.7= 

00243 

*30254= 

00256AG 

00259= 

0*3 2 70 AG 

0*7285= *7029*7 


00303= 

0.7315 

00332= 

00337 

00345= 

00350 

00456= 00457= 


0,74 67.vR 

0O469WR 

00471WR 




00351= 00353 

DUMMY 2 

O0OO5DI 

0O.7O9EQ 00291= 

*30297 

00333= 

00344 


D'UMN 

F 


■FNAME 

C 


GM 


GMINV 

H 


HREOR 

I 


00161 = 

000O4DI 

00315 

004736/R 

0.70*7 ID I 

000*7401 

00411WR 

0*7004DI 

00234 

0O432WR 

00079CL 

O0004DI 

0/7153 

O03P8WR 

00J04DI 

00017RD 

00 04 CRD 

O0075DO 

0010.7 

00141 

O0181DQ 

003.97 

00214DG 

00231 

0024 5DO 

00 2 63 

00290 

00307 

0032070 

00345 

00362WR 


00165 
00 01 2D A 
0036*7WR 


00017RD 
03 01 2D A. 
00447 
00 01 2D A 


00044RD 

00362VR 

0001CAG 

00046RD 

0047CWR 

00048RD 

00344 


00213 00225= 00297 00293 00307 

00364WR O0355WR 0J407NR 00434 00453 


03221RD 

00078 

00035 

00350 


CO 02 PAG 
00230 

00239 

00357 


00035CL 
00 01 PDA 
00155 
00 3 9 ON R 
00115= 
00021RD 
00 04 3RD 
00078 
00102DO 
*7014500 
00182 
C0193DO 
00218 
3023200 
00246 
03269 
00291 
00308 . 
00331 
0034600 
00364WR 


00093CL 
00050RD 
00159= 
00420NR 
00117= 
00025RD 
00050RD 
000 33DO 
v?0103 
00146 
00183 
00200 
00219 
00234 
00252IF 
O0272DO 
0029200 
00339DO 
00332 
00350 
O035RNR 


00152CL 
00092 
00160= 
00440 
00378WR 
00036RD 
OOOS7DO 
00085 
0.71O7IF 
00150 
0O185DO 
032O2DO 
03220DO 
00235DO 
00253 
00 273 IF 
00297 
00310 
00333DO 
00351 • 
:0369WR 


00113 
00135 
00486WR 

00 3 3 3RD 

00363 

OOJ90DO 

00132.NR 

33174DO 

00187 

0020SWR 

30224 

0*7239 

00254 

*7027900 

0.7298 

00315 

30337 

00352DO 

0037 0WR 


00234= 00353WR 0037MR 

03243= 03251 00266 

0*737?.', 'R 00374WR 00419NR 

00 2 56C L 00270CL 
00114= 00115 . 0*7116= 
0*7191 00324 00333WR 

0048RWR 


00040RD 

0*7*77200 

*7,7*792 

30134WR 

00176 

*70133 

0O2O7WR 

00225 

00240 

,7025*700 

00234 

00299DO 

00319DO 

*73338 

00357 

00372NR 


0034 2RD 

00073 

0009700 

001381X) 

0017900 

*7019200 

00209WR 

*5022600 

0024 IDO 

00251 

00285 

00301 

0032,7 

0033900 

00353 

0J374WR 


00044RD 

00074 

00099 

0*314*7 

0*713*7 

00195 

00211WR 

0023*7 

00243 

0*7 2 67 IF 

0028500 

003*7200 

00324 

00344 

C0340WR 

.70 3 78WR 
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003S3WR 

i»3RPWR 

00390.4R 

00392WR 

00394WR 

00397a’R 00399WR 

00407AR 


00 411V. 1 U 

0041GWR 

0042.KR 

00422VR 

Ov3424’a'R 

80432DO 

00434 

00435DO 


00435 

00440 

00442130 

00447 

00448 

8040 9DO 

00450 

00453 


00454DO 

00456 

00457 

00459WR 

00461WR 

00 4 6 3DO 

0*3465'\’R 

00467,\'R 


004<S9.\'R 

08471WR 

00473WR 

00474DO 

30478WR 

804O2WR 

00485WR 

00488'a'R 


0048900 

00493WR 

00495WR 

00 4 98V/ R 

O05O3DO 

08504WR 



I ARRAY 

O0006DI 

08808SQ 

0OOS3AG 






IDEN 

00032RD 

00033IF 

00034RD 

00035IF 

00*3 36RD 

88037IF 

00038RD 

000 391 F 


OOO40RD 

0004 11 F 

00042RD 

00 04 31 F 

00044RD 

8804 51 F 

00046RD 00047IF 


0004 3RD 

00049IF 

OO05ORD 

00131= 

00137,',’R 

00133= 

001 34V, 'R 

00204= 


00209-JR 

00205= 

OO207AR 

00208= 

0020SWR 

00210= 

00211WR 

00359= 


00360WR 

00361= 

00362WR 

00363= 

00364WR 

08355= 

00366WR 

00357= 


00360WR 

00369= 

00370AR 

00371= 

00372WR 

00373= 

00374'aR 

00375= 


00373WR 

00379= 

00381V/R 

00383WR 

*30384= 

003S6WR 

00 3 S3’ '.’R 

00389= 


0O39OAR 

003-91= 

00392VR 

00393= 

O0394V,'R 

00395= 

00397AR 

00393= 


0O399WR 

00400= 

00401WR 

00404= 

0040SWR 

00406= 

0040 7a' R 

00408= 


004 09, ‘/R 

00410= 

00411WR 

00412= 

00413VfR 

88414= 

00415VR 

00417= 


00418WR 

00419= 

0O42*?,'/R 

00421= 

00422, VR 

00423= 

00424WR 

00425= 


00423\'R 

00427= 

00428AR 

80429= 

0O43OAR 

80459= 

00459WR 

00460= 


00451WR 

00432= 

0O465WR 

80466= 

00457WR 

00458= 

00469WR 

00470= 


00471WR 

00472= 

00473VR 

00475= 

0O476WR 

08477= 

00473WR 00 479= 


0O48OWR 

00401= 

00482V.R 

00483= 

00484WR 

00495= 

O0435WR 

00407= 


00433'aR 

00490= 

00491WR 

00492= 

00493V 7R 

00494= 

00495V/R 

00495= 


0O493WK 

00499= 

0O5OOWR 

80501= 

00502WR 

80503DO 



IERR 

OOOS^AG 

O0 05 51 F 

00059AG 

008 601 F 





II 

00073= 

00074 

00103- 

80104IF 

00109 

00110 

00111 

00113 


00114 

00115 

00116 

00117 

*30119 

00120 

00121 

00122 


00123 

00124 

00125 

00126 

00127 

00146= 

00150 

00182= 


00185 

00197= 

00191 

88246= 

00251 

80251= 

00256 

00310= 


00316 

O032O* 

00325 

80435= 

00441 

00450= 

00453 


I IN 

CO010CM 

0O01 3D A 

00017RD 

00021RD 

00025RD 

D0029RD 



IK 

00183= 

00185 

00183= 

00191 





IG 

O001OCM 








ioirr 

OOOIOCM 

0001 3D A 

0001 9','R 

8001SWR 

00O23WK 

00027'JR 

000S2.\’R 

0O057AR 


00081V,’ K 

O0083WR 

00095WR 

08 2 77a 1 R 





IPFIN 

0O017DA 

00 01 GAG 

00032RD 

80034RD 

00036RD 

00038130 

00040RD 

0004 2RD 


00044RD 

00 04 3RD 

0004 3RD 

00050RD 

00052RV 

80063AG 



IPFOJT 

OO013DA 

O0022AG 

OO0636G 

88 13 2a/ R 

0*31 34WR 

08205WR 

00207,'.’R 

0020PAR 


00211WR 

80360WR 

00352WR 

80354WR 

00 3 6 9a’ R 

00363WR 

00370WR 

0O372AR 


00374WR 

0037GWR 

00381WR 

88333WR 

00335WR 

003CGWR 

O0390WR 

00392WR 


00394WR 

O0397WR 

00399WR 

00401WR 

00 40 5,'/ R 

00407WR 

00409,%’R 

00411WR 


00413V.'R 

00415WR 

00418WR 

08428WR 

00 4 2 2a R 

00424’a'R 

00 4 2 G.VR 

oo 4 2 Far 


OO430WR 

88459WR 

00461WR 

00465WR 

00 4 67,*: R 

88 4 5 9a' R 

00471WR 

00473WR 


00476WR 

00478WR 

00400VR 

00482V/R 

0J484WR 

88486WR 

004O8WR 

00491WR 


C0493WR 

00495WR 

00498'a’R 

00500WR 

00502a’R 

08504WR 



IS 

00255= 

00255AG 

00271= 

00274= 

0027SIF 




ISQR 

0024400 

O0245DO 

00247DQ 

00255 

00257IF 

00258 



n 

00014DA 

O0381WR 

00389AR 

08405WR 

00409WR 

00413WR 

00418WR 

004 2 WR 


0O42FAR 

0047^WR 

0048MR 

80484WR 

00491WR 

00580WR 

00504WR 


1988 

0001 4DA 

00053AG 







.1 

00044RD 

80046RD 

*300 4 8RD 

00058RD 

*3007700 

O0078 

0008400 

00085 


00091 DO 

00092 

00093DO 

08099 

00112DO 

00113 . 

00114 

00115 


00116 

00117 

OOH8DO 

00119 

00120 

00121 

0O139DO 

00140 


00147DO 

00148 

00149 

08175DO 

*30176 

00184DO 

00185 

001C9DO 
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00190 

*7019300 

&J19G 

i5i? 197 

00199DO 

*30 2 00 

00207WR 

00209WR 


0021 1WR 

00215DO 

00218 

*50219 

0022100 

00224 

00225 

0*322700 


00230 

00231 

0023 3D0 

0.3234 

0023500 

00239 

00240 

0024200 


00243 

•00247DO 

00240 

00252IF 

00254 

00252DO 

00263 

•00257IF 


002G9 

■002C0DO 

00281 

00285 

00287130 

00290 

00291 

0029300 


•00297 

00293 

0030000 

00301 

0030300 

00307 

003-03 

00 31 IDO 


00315 

00315 

0032 IDO 

00324 

00325 

00327DO 

00328 

00332 


00334DO 

00337 

00338 

00340DO 

00344 

00345 

00347DO 

00350 


00351 

00353DO 

00354 

00357 

i30353 

00360WR 

00352/JR 

00354WR 


D0366WR 

00 358WR 

00370WR 

t\5372WR 

0O374WR 

i30 3 78'a'R 

00333’a'R 

00388'a'R 


00390WR 

00397,\’R 

00399WR 

00407//R 

00411WR 

0041 5a’ R 

004 20WR 

00433DO 


00434 

004 37DO 

00440 

00441 

004 43DO 

00444 

00447 

004 5100 


00452 

00453 

00455DO 

00455 

00467.VR 

00469WR 

00471WR 

00473WR 


00 4 7 Fa’ R 

00 4 32 '/R 

0048^VR 

00 4 8 Fa’ R 

00498WR 




J3 

00148- 

00150 







JC 

00149= 

00150 







JJ 

00190= 

00191 

00248* 

00251 

002 

00265 

00281= 

00284 


00320= 

00331 

00354* 

00358 

00444= 

00448 

00452= 

00453 

K 

0003100 

0019500 

0019‘S 

00217DO 

.30213 

0022300 

00224 

*7022900 


00230 

00238DO 

00239 

0025*300 

00251 

00265DO 

00255 

0028300 


00204 

00289DO 

00290 

0029500 

00296 

00297 

0.330500 

003*36 


00307 

0v3313OO 

00314 

00315 

00323DO 

00324 

00 3 3000 

00331 


003 35DO 

00337 

00342DO 

00343 

•00344 

0034SDO 

00350 

0.3356DO 


00357 

00403DO 

00416DO 

00439DO 

00440 

004 4500 

0*3447 


KK 

00295= 

00297 

00305* 

00307 

00314= 

00315 

00343= 

00344 

L 

00155DO 

00155 

00159 

00160 

•00162DO 

00163 

001 5600 

00167 


00170 

00171 







LAST 10 

00 01 40 A 

00053AG 

00131 

00458 





LBACK 

00153= 

•00164 







M 

00157DO 

00153 

00163DO 

00169 





'SACK 

00158= 

00159 

00169* 

00170 





MNV 

00003RL 

00035RD 

00122 

00123= 

00124= 

00133n'R 

00459WR 


MNXC . 

O00.33RL 

00J4 2RD 

00074 






MNXS 

00303RL 

00O40RD 

00068 






MNXT 

00003RL 

00058= 

00074* 

00161 

00164= 

.30165= 

00203AG 

002*35WR 


■00 4 54 AG 

■00065WR 







MNZ 

00003RL 

00038RD 

00125 

00126= 

00127= 

00134WR 

00205WR 

0046WR 

MR 

00079AG 

000C0IF 

00036AG 

00*337IF 

00093AG 

00 094 IF 

00152AG 

00153IF 


00201AG 

00256AG 

00 2 57 IF 

00270AG 





Ml 

00135= 

00146 

00182 

00187 

0020EWR 

00317IF 

00323DO 

00376 


003O0IF 

.M430'JR 

00382IF 

tJ#383WR 

00335IF 

00 3 37 IF 

O0388WR 

03390WR 

00401WR 

MlP 

00137= 

00177IF 

0017900 

00183 

•001O4DO 

001 S3 

002.32DO 

00205WR 


00212IF 

00246 

00248 

00261 

00263 

00279DO 

00281 

00285DO 


0029200 

0029300 

00295 

00299DO 

0030000 

00301 

00302DO 

00306 


003J9OO 

00310 

0031 IDO 

00314 

0/331900 

*30 3 20 

*3032100 

00 3 26DO 


00320 

0033300 

00 2 3900 

00343 

0034600 

.30 3 <5 700 

0035200 

.7035300 


00354 

00350WR 

00352WR 

003S4WR 

00366WR 

00358WR 

00 3 70 '/R 

00372WR 


00374WR 

00377 

00383WR 

00338WH 

00390WR 

.30395 

00401WR 

00430%'R 

M2 

00135= 

00137 

0020 dm 

*7024400 

*3026000 

00 2 52DO 

00270AG 

0*327200 


0.02801X3 

002O7DO 

0028900 

■:;0295DO 

003*3300 

0030500 

00313DO 

0*3327: X) 


0033400 

*7033600 

00342DO 

00362.VR 

00354WR 

00366WR 

00 3 7*7 a’ R 

0037.WR 


00377 

00383'a'R 

00390WR 

00399WR 

00401WR 

00407WR 

00411WR 

•004 1 9'/R 


0042*?WR 00430WR 


RT-11 INDEX V03 CROSS REFERENCE LISTING 12-APR-79 02:03:32 PAGE 00015 


M2P 

00101= 

00106= 

tftfltf7IF 

00129IF 

22135 

20136 

00142DO 

tftf!45DO 


00152AG 

0010100 

Ml CSX) 

2018900 

22192 

22378 

0040 1VNR 

tftf43tfWR 


00592.NR 








NBCOL 

00143= 

00155 

M157DO 

23158 

22161 

00162DO 

00163 

00167 


0O1 68DO 

00169 







NC 

00144= 

00151= 

M152AG 






NCOL 

00142DO 

00143 

0i9144 

33147DO 

22149 

00151 

00153IF 


NDIM3 

0001 1CM 

00014DA 







NDIMf) 

00014DA 








NONAM E 

0001 1CN. 








WU 

00034RD 

0007700 

M379AC 

23383IF 

22227DO 

20233DO 

02 368V; R 

M37tfwn 


00411WR 

00445DO 

tftf473WR 

J 





num 

00396= 

02397, NR 

tftf497= 

00493WR 





NW 

00034RD 

000 54 AG 

0003^00 

0003-SAG 

222 37 IF 

0023600 

20242DO 

M25tfDO 


00265DO 

2228300 

00 33^3 

00 3 4000 

22349DO 

22 3 56DO 

00372WR 

M374WR 


00 3 9 2 NR 

0041 SNR 

0042ZVR 

00432WR 

22493WR 




NX 

00O36RD 

09038RD 

00040RD 

00042RO 

00044RD 

20246RD 

00048RD 

tftftfStfRD 


00376= 

02378WR 







NXC 

0O034RD 

00064 

00070IF 

00072DO 

22287 IF 




NXS 

00034RD 

00064 

O0055IF 

000 57DO 

22273 




N)CF 

00054= 

0007600 

00079AG 

00033DO 

222S5AG 

0099100 

22 2 93, AG 

tftfl!2D0 


00137 

0013000 

0013900 

00143 

22148 

22166DO 

9217400 

M175DQ 


00190 

O01D2DO 

tftf 193DQ 

0019500 

2919800 

0219900 

22 22 1AG 

M2tf5WR 


0020 8WR 

00211WR 

00214DO 

00215DO 

2921700 

22220DO 

0922 IDO 

tftf 22300 


■0022500 

O022SDO 

0023200 

00235DO 

22238DO 

02241DO 

00362NR 

00 3 >4WR 


0035 CaR 

0037-J'iR 

00374WK 

M383WR 

22392’a’R 

2243200 

20433DO 

02435DO 


00436 

004 37DO 

00442DO 

00443DO 

22444 

904-3 900 

00450 

29451DO 


00452 

00454DO 

00455DO 

00 4 S 300 

2246SVR 

22 457, NR 

20459', NR 

20471WR 


00473\'R 

20473WR 

M4CZWR 

0043GWR 

224C8WR 

02497 

095221',’R 


NY 

22044RD 

00046RD 

00 04 3RD 

00050RD 

22377= 

00378WR 



NYO 

40034RD 








NYS 

0O034RD 








NZ 

00034RD 

00059AG 

0009000 

00 093 AG 

•29094 IF 

0009700 

0209300 

0010200 


00103 

00 UPDO 

0013 2<R 

Mi 3 CVR 

90135 

0915500 

20207.NR 

0039uV. , R 


00394'NR 

00424WR 

304 39DO 

00459WR 

29 4 6 1WR 

00488WR 

00488WR 

90495-/R 


00502NR 








QD 

0000201 

00 01 20 A 

000 54 AG 

00251 

22266 

00284 

09331 

00344 


00357 

00 392V, ’R 

0042?*m 

00447 

00493WR 




RD 

00 00 2D I 

00 01 20 A 

tftftf59AG 

00 104 IF 

20129 

00110= 

00111= 

00324 


00394WR 

00424WR 

O0440 

0049O'’R 





READ4X 

00054CL 

00059CL 







REW'R 

00063C L 








Rtf 

00014DA 

003O1WR 

00 3 3 Awn 

0040S*’R 

29429WR 

004 UNR 

•2041OWR 

22428.NR 


0042<?.VR 

•J2476WR 

0043WR 

004G4WR 

29491’vR 

09 52. ’NR 

00504'NR 


SCALE 

00 00 ID I 








TRAMS L* 

90203CL 

00454CL 







ttlmew 

00 00 ID I 

•00025RD 

i\v0 r ) 3 AG 






tz 

00007DI 

00009EQ 

00099- 

00100= 

22119 

00129= 

•99121= 

00227WR 

T1 

0000501 

00008EQ 

00140- 

00141= 

22167 

00172= 

00171= 

20196 

T2 

0000 5D I 

0000OEP 

00177= 

00.180= 

22185= 

00191= 

00195 

00200= 


0220SWR 

00210 

00230 

00239 





T2I 

00007DI 

0000OEQ 

00201AO 

M211WR 

20224 




XINVRT 

00 00 70 I 

tftftftfS'EQ tftftf79AG 

0003-SAG 

20 2 93 AG 

29152AG 



Z ETA 

20907DI 

wn ? da 

00253 

00253= 

02268 

00273 IF 




original’ page , s 

Ol\ POOR QUALITY 
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RT-11 INDEX V03 CROSS 


Ik 1 ! 

0001 5VR 

00016* 

100 

00089WR 

00-389* 

1000 

00505* 


110 

0009/! DO 

00091DO 

12 

000 19.'! R 

00020* 

120 

00095WR 

00096* 

125 

00097DG 

00098DO 

130 

0011200 

00117* 

135 

0011300 

00121* 

14 

00023'VR 

00024* 

140 

0O1O2DO 

001O5GT 

144 

00133DO 

00139DO 

145 

0014500 

00147DO 

150 

0015700 

00159* 

180 

00155DO 

001 80* 

170 

0016200 

00164* 

IPO 

0016800 

00170* 

190 

0016500 

0017.1* 

20 

0001780 

00021RD 

200 

0014200 

00154GT 

210 

•00173* 


215 

0017400 

■00175DO 

22 

00027.'! R 

00O28* 

220 

0O179DO 

00180* 

240 

00131DO 

00 18 400 

245 

00178GT 

001 So* 

25 

00029RD 

00030* 

250 

00185DO 

00189DO 

253 

00 19 500 

00195* 

255 

0019200 

00193DO 

257 

0019800 

00199CO 

253 

00202DO 

•00203* 

250 

0021700 

00218* 

270 

O0214DO 

00 21 500 

280 

O0223DO 

00224* 

290 

0022000 

00 22 IDO 

300 

00 2 2900 

00230* 

310 

O0228OO 

00227DO 

320 

00232DO 

00233DO 

330 

0023ODO 

00239* 

340 

0023500 

00235DO 

350 

0024 IDO 

00242DO 

390 

0025000 

00251* 

40 

0003100 

00051* 

400 

0024500 

O0247DO 

410 

•0024 4D0 

O025S* 

42 

00O32RD 

00052* 

420 

0O265DO 

00266* 

425 

Ov"! 2 6000 

00 2 6 2D 0 

423 

0027200 

00275* 

429 

0O277'.'R 

00273* . 

430 

002C3OO 

00234* 

440 

00279DO 

002R0OO 

45 

OOO 57'/ R 

00053* 


REFERENCE LISTING ld-API 

> 30092 * 

00100 * 

00.1093T 00123* 

00141 * 

00150* 

00025RD 00026* 

00172* 

00175* 

00185* 

00191* 

00197* 

00200 * 

00219* 

00225* 

00231* 

00234* 

00240* 

00243* 

00254* 

00259* 

00285* 


:-79 02:03:32 PAGE 00015 
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450 . 30289DC 00290* 

v 0028500 0428700 0,3291* 

470 00295DO IM297* 

^30 0 >329200 >3>329300 00298* 

490 .3029900 >3030000 >30301* 

50 00054* >300553? 


500 

■0030500 003.37* 

51 >3 

00302DO 0030300 00308* 

520 

00313DO 0-4315* 

525 

003.3900 t’0 31 IDO 00315* 

530 

00323DO tv) 324* 

540 

0031900 0032100 .30325* 

545 

00 31 XT 0032-5* 

55 

00057.-, 'P 00058* 

550 

00334DO 00331* 

550 

.3032500 0032700 00332* 

57 >3 

0033500 04337* 

530 

00333DO 0033400 00339* 

590 

0034200 04344* 

60 

00459* J0061GT 

500 

00339DO 0034000 40345* 

610 

0434900 00354* 

52 

00-05700 00068* 

520 

0034600 0034700 00351* 

530 

0035500 00357* 

54 

00065GT 04069* 

640 

•00352DO 0035300 00358* 

645 

00 21 XT 00403* 

555 

004 4300 00405* 

66 

0007200 00074* 

650 

004 1500 44418* 

63 

J00 7 1GT 00075* 

70 

0047600 0407700 00078* 

700 

0013.XT 00432* 

710 

0-04 32DO 0443300 00-134* 

720 

0043900 00440* 

730 

0043500 0043700 00441* 

740 

0044500 00447* 

750 

0-044200 >1044300 00448* 

76 0 

0044900 0045100 00453* 

770 

0045400 0045500 00457* 

775 

•0046300 00484* 

730 

0047400 00476* 

790 

0048900 00491* 

30 

0003r.-/R 00082* 

9/ 

0006300 00084OQ 00085* 

900 

0/442GT 00431GT 00503* 

910 

,)050 300 00504* 


<% >* 

4 r 



aaan 
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RT-11 INDEX VE3 SOURCE LISTING 
MM1 


M-APR-79 Hi 03: 32 PAGE «W31 


C 
C 
r 

C 

MM2 
.WEE 3 
MM 4 

MM'5 lv?» 

Oi 2M5 
MM3 
Mtf Id 

Man 

Mv512 

C 

v* 

c 

G 

03313 20 

Mai5 3a 
aaaifi 
Man u 
MJ18 
Mai9 sa 
Ma2a 
Mi321 f>a 

ME 22 
M£!23 


OT ’S"» S5S» TO «»«■ 

CUScK* OP.9BI0MS OUT OF wee w> FORMS: 
ARRAY (I)=VALUF. 

COMMOM/tO/ I IN , TOUT 

dimension array (IMAX) 

REAJD(IIN,W^ r=50 > nVALUr, 

FORMAT ( I j E) rn -i-i 

IFU.Cr.IMAX.OR.I.LT.a) GO TO M 

IF(I.EQ.fl) GO TO 20 
ARRAY (I ) -VALUE 
IERR=a 


RETURN 

ERRORS: 


IERR=1 - I-« INDICATING TERMINATION OF DATA 
FOR THIS MATRIX 

r E q R =? - DIMENSIONS OUT OF RANGE 

IERR=3 - WRONG format on input 

I ERR- l 
return 
IERR=2 

;SS : SS«” 0F »"* ** , '“' ,5 ' K5 *‘ > 

return 

IERR=3 

WRITE (IOOf, 50) 

FORMAT (5X , ’ WRONG FORMAT ) 

return 

END 
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CROSS REFERENCE LISTING 10-A.PR-79 


02:03:32 PAGE 


00002 


ARRAY 000 01 AG 0000 3D I 00010= 

I 00004RD 04 006 IF 00403 IF 00010 00-0J 3WR 

IERR 00001AG 00411= 00013= 00015= 00019= 

I IN . 000020.1 0040 4 RD 

I'-lAX 40001AG 40003DI 00 005 IF 

10 00002CN 

IOUT 00002CM 00013NR 04020/VR 

READt-IX 00001SU 

VALUE 00404RD 00010 0001 CNR 

10 00004RD 00005* 

20 00409GT 00413* 

30 04007GT 04015* 

40 4001 G-/R 00017* 

50 40004RD 40019* 

50 00020NR 00021* 
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RT-11 INDEX VU3 SOURCE LISTING 


10-APP-7O ^2:25:24 PACE 00001 


C BLOCK 4 - FILTER GAINS .AND ESTIMATION ERROR 

C , UTILIZES FILTER SET-UP (BI.OCK 3) AND PERFORMS 

C EIGENVALUE DECOMPOSITION QR ALGORITHM) TO OBTAIN 

C FILTER GAINS. ALSO COMPUTES RMS AND CORRELATION. 

U0001 DIMENSION FRAME (4 ) ,TTLNEW(5) 

C PROBLEM FILE INPUT MATRIX ARRAYS 

■*«32 DIMENSION F21 (15,15) r CM (15, 15) ,GM2 (15,15) ,H (15, 15) 

30003 DIMENSION ARM (30, 30 ) ,QD (15) ,RD (15) 

C OUTPUT ARRAYS 

*530.34 COMPLEX EVAL(30) ,EVEC(30,30) ,W21 (15, 15) 

C 'OR KING ARRAYS 

3333S- DIMENSION ARRAY (900 ) , IARR.AY (903 ) , DUMMY (15. 15) , DUMMY 2 (15,15) 

0000S DIMENSION A(15, 15) ,WX (30, 30) , IMT (30) , SCALE (30) ,WR(30) ,V/I (30) 

00007 COMPLEX DD,C0,C(15) ,WA(225) ,Wll (15,15) 

C EQUIVALENCES 

00003 ECU I. VALENCE (ARM,W11) , (ARM(i, 16) ,W21) 

00009 EQUIVALENCE (EVEC, DUMMY, ARRAY, CM2) , (EVEC(1,1G) ,DUMMY2, 1 ARRAY) 

00010 EQUIVALENCE (V-K,WA) , (C, SCALE) 

C INITIALIZE ARRAYS 

00011 DATA F21 ,GM , II, ARM , PX , QD, RD, SCALE, 'MR, WI /1 920*0./ 

.00012 DATA INT /30*0/,TrLNEl'! /' "" ',4*' ’/ 

00013 DATA EVA L,EVEC /930*(0. ,0.)/ 

C OTHER DATA 

00014 DATA IIM, TOUT, IPFIN, IPFOUT /5, 7, 20, 21/ 

00-015 DATA II, R0, I'aK, I900,LASTID,NDIM3,MDIMo /l, 0. , 225, 900, 54, 15, 30/ 

U0016 DATA C0 /(0.,0.)/ 

C READ PROBLEM FILE NAMES 


00017 

00018 

00019 

00020 
00021 
00022 

00023 

00024 

00025 


0002 '* 

00027 

00028 
00030 
00032 
00034 


write fio.rr, 10 ) 

10 FORMAT (2UX,’ FILTER GAINS, EST ERROR - BLOCK 4’,/,2X, 

+ ’INPUT PROBLEM FILE NAME ? ’ ,$) 

READ (I IN, 20) (FRAME (I) ,1=1,4) 

CALL ASSIGN (IPFIN, FNAME) 

WRITE (IOUT, 15) 

15 FORMAT (2X, ’OUTPUT PROBLEM FILE NAME ? ’ ,$) 

READ (I IN, 20) (FMAME(I) ,1=1,4) 

CALL ASSIGN (IPFOUT, FNAME) 

20 FORMAT (4A4) 

C GET THE FOLLOWING FR04 THE PROBLEM FILE: 


c 

DIMENSIONS 

IDEK-2 

c 

F21 MATRIX 

IDEM=40 

c 

GMl ViATUIX 

IDSN-44 

r 

GM2 .MATRIX 

IDEN=45 

C 

Hll MATRIX 

I DEN-4 7 

C 

QO MATRIX 

IDF,N=50 

c 

RD MATRIX 

IDEN=51 

c 

ARM MATRIX 

IDEN=S2 

c 

A MATRIX 

I DEN =53 

c 

DIM ENSS IONS 

IDEN=54 


DO 30 '<=1,200 



READ (IPFIN, EMD=40) IDEM 

IF(IDEN.FQ.l) READ (I PF IN) IDEM, NXS , NXC, !*J , *<W, NZ,NYS, NYO 
IF(IDEN. EQ. 39) READ (I PF IN) IDEM, NX, NY, ( (F21 (I,J) ,J=1,NY) ,1=1, NX; 
I F ( I DEN . L'Q., 4 3 J READ (I PF IN) IDEM, NX, NY, ( (GM(I,J) ,J=I,NY) ,I=i,NX) 
IF(IDEN.EQ. 44) READ(IPFIM) IDEM, NX, MY, ( (GM2 (I , J) ,J=i,NY) ,1=1, NX) 
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12~AFR«-79 23:25j24 PAGE 22302 


»W„134 
.13338 
03040 
20042 
MM A 
OiAV.fi 

MIAS 

23249 

0.1053 

23051 

30.152 

00.353 

0.1054 

00055 

.30054 

00057 


020.45 

00044 

00058 

00059 
00070 


l F ( IDEM . EQ. -15 ) READ ( I PF IN ) IDEM, NX, MY , ( (H ( I , J ) , j-1 , MY ) , I«l , MX) 
IF(IDEN.EQ, 49) READ ( I PF IN ) IDEM, NX, (CD (I ) , 1*1, NX) 

1F( IDEM. EQ. 50) READ(IPFIN) IDEM, MX, (flD(I) ,I«1,‘IX) 

IF ( IDES', EQ. 51) READ(IPFIN) IDEM, NX, NY, ( (ARM (I,J) ,J«1,MY) ,1*1, NX) 
IF (IDEM. EQ. 52) READ (IFF IN) IDEM, MX, NY, ( (A( I , J) ,J*1,NY) , 1*1, NX) 
IFMDEN.EQ.53) READ(IPFIM) 10BN,M1,M1P, 42.M2P 
CONTINUE' 

DO 45 1*1, M2 
1 1 *1 +M IP 
DO 45 .1*1, 

GM(TI,JKJM2(I,J) 

READ AND WRITE PROBLEM FILE 
REWIND I PF IN 

CALL RCVR (IPFIM, IPF0UT,*1TLNSY, 190 .3 , LAST ID, ARRAY, JARRAY ) 

NTCT-M IP 
IDn.s'*IA5't‘ID 

IF(MIP.KQ.O) GO TO 150.1 

CWKITE OPEN LOOP EIGENVALUES AMO WRITE THEM 
DO 50 I*l,MTOT 
DO 5.1 J=l,Nrt)T 
DU AMY (1 ,J)=ARM (I ,J) 

CALL E IGRF(DUMMY, NTOT, M>IM3, 0, EVAL, EVEC, I NT, SCALE, WR,WI,KK, I ERR) 
IDSM*IDEN+1 

WRITE (IPFCUT) IDEM, NTOT, (EVAL (I) ,1*1, NTOT) 

COMPUTE CLOSED LOOP EIGENVALUES AMD EIGENVECTORS 
CALL SIGRF(ARM, 2*NTOT,NDIM5, 1, EVAL, EVEC, INT, SCALE, WR,WI,WK, I ERR) 
IF(IERR.KQ.O) GO TO 79.5 
V. RITE { lOLTf ,783) 

FOR 4AT (5X , ' ERROR COMPUTING CLOSED LOOP EIGEN!) YFTIM’ ) 

GO TO 150.3 

(Wll) KITH EIGENVECTORS CORRESPONDING 
FORM ( ) TO EIGENVALUES WITH POSITIVE 

(W21) REAL PARTS. 


23371 

793 

J =3 

33372 


no PI 3 K«1,2*%T0T 

32373 


IF (REAL(EVM. (K) ) . LT. 2. ) GO TO 913 

.333 75 


IF (REAL (EVAL {" ) ) .EQ.O.) WRITE (I OUT, 79 5) 

33377 

795 

FORMAT ( 5X , 1 REAL PART OF C.L. EIGENVALUE * 

30378 


J<f+l 

33379 


EVAL ( 3 ) “-EVAL (K ) 

.3.3273 


DO ?3»3 1*1, NTOT 

23.131 


L=NTOT+I 

23332 


'•’11 (-J, I)*EVEC{I,K) 

23233 


W21(.J,I)*EVEC(L,X) 

33.334 

8.33 

EVEC ( I , J ) =EVEG ( I ,.K ) 

33335 


IF(J.EQ.NTOT) GO TO 83.1 

.13.137 

812 

CONTINUE 

23238 


WRITE (IOUT, 823) 

23.339 

32.1 

FORMAT (5X, ‘ERROR IN EIGENVALUE SELECTION*; 

.13293 


GO TO 153.1 


C 

complex solution cav**-ni*;v 2 i**-i 

32391 

833 

GALL LEOT2C <l\'21 , NTOT, 3 DIM 3, WU , NTOT, FDI.M3. 

,333 92 


IF(XCRR.E0.3) GO TO 253 

2.3394 


WRITE (r OUi ,84,3) 


RT-il INDEX VJ3 SOURCE LISTING 


A3095 34*3 

JW97 850 
*10093 
*\W9 
*50100 85*5 
C 

iVioi 
001*52 
00103 
0*5104 
00105 
*5*5107 
0*3104 
001,39 370 
*5,511*5 
.30111 
0*3112 C30 
.3*1113 «9*3 
C 
C 

,3*3114 

0*3115 

*50115 

0*5117 

*3,3113 

oune 


0012*5 

00122 

00123 

00124 
* 5012 $ 895 
* 5*5129 
*30127 
*50123 
*30122 90*3 

00130 91*5 

00131 

00132 
00133 920 
* 3*3134 
00135 
*50137 
00133 
.50139 
00140 

■00141 95*3 
*50142 95.3 
00143 
. 3,3144 
0*3145 


l*W*m-79 02:25:24 PAGE 00003 

rOR.1A?(5X,'Er*RO!l IN EIGENVECTOR DECWroSITION*) 

GO TO 1500 

CONTINUE 

DO 840 I=l,WrOT 

DO 350 U«l,WOT 

DUMMY (I , -J)w-REAL (Wll (I ,0) ) 

CCMPUT NORMALIZED EIGENVECTORS 
CO GOO 1=1, NTOT 
SF=0. 

DO 37*2 ■ ' J *1 , NTOT 
SFF=CA«':‘S (W21 (I c 0) } 

IF(SF.4T.SFF) GO TO 870 
v3 wax-, 

CCNT!"tE •'••• ~ 

nD*W2i(I,J4AX) 

DO 83*3 *1*1, NTOT 
•’>21(£,J)*.v2i (I,J)/DD 
continue 

VIRITE CLOSED LOOP EIGENVALUES, NORMALIZED 
EIGENVECTORS AND TRANSITION MATRIX 
tDFA'-lDGN+l 

•VHITEUPFOUT) IDEM, NTOT, (EVAL(I) ,D»l,NTOT) 

IDEM=IDEN+1 

•WRITE (IPFQJT) IDEM, WTOT, NTOT, ( (W21 (1*0) ,0*1 ,ttfOT) ,1*1 , 2. TOT) 
ICSN^IDEN+1 

’.WRITE (IPFOUT) IDEM, WOT, WOT, ( (DUMMY {I ,J) ,J*l,NTOT) ,I*l,KTOT) 
COMPUTE FILTER GAIN’S AND ’.WRITE THEM: 

Kll » PX*:illT*RI 

K12 «* (PX*F21T + GMl*2D«GM2T) * (GM2*QD*GM2f ) I 
XF(Ml.NS.d) GO TO 895 
IDEN°IDEN+1 

'WRITE (IPFCUT) IDEM, II, II, R*3 

CO TO 92*5 

DO 910 1=1, NTOT 

DO 910 0=1, Ml 

DOM**!* 

DO 900 K»l,wrOT 

DUM=OU 4-REAL (Wl 1 ( I , K) ) *H (7 , K ) /RD (0 ) 

DUMMY (1,0) “OUM 
ID3N»IDEN+i 

bHITE (IPFC1TD IDEN,27ror,Ml, ( (DUMMY (I, J) ,J*l,Ml) , 1*1, NTOT) 
carriNus 

IF(M2.EQ.l.AAD.A(l,l).EQ.O.) GO TO 1.31*3 

DO 050 1*1, NTOT 

DO 950 0=1, M2 

JJ=J-tMTOT 

DUM**J. 

DO 95.3 K=1,N’W 

DUMTOU -HGM ( I , K) *GM (JO , K) *QD (K ) 

DUMMY (1,0) =QU 4 
T>0 990 1=1, NTOT 
DO 990 0=1, M2 
DUM*,3. 
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00146 DO 97 1? K*1 , NTOT 

00147 970 DUM=OUM-REAL (Wll (I,K) ) *F21 (J,K) 

00143 980 DUMMY2(I, J)=DUM+OUMMY(I,J) 

00149 DO 1000 I«l,NTOT 

00150 DO 10*0 

00151 DUM=0. 

00152 DO 990 K»1,M2 

00153 990 DUM*DUM+0!i'HY2(I,K) ft A{K f J) 

00154 1000 DU-4MY(I,J)®DUM 

00155 IDENaIDEN+1 

0015S WRITE (IPFCUT) IDEM, MTOT,M2, ( (DUMMY (I, J) M2) ,1=1, NTOT) 

00157 GO TO 1015 

00153 1010 IREN=ID£N+1 


00159 WRITE (IPFOUT) IDEM, II, 11, R0 

C GET TI 

00160 1015 LASTID=IDEN 

00161 REWIND IPFIN 

00162 DO 1020 K=l, 20O 

00163 READ(IPFIM,iM>*lv)30) IDEM 


;<bx64 IF(IDEM.EQ.35) READ (IPFIN) IDEN, NX, NY, ( (OUMMY2 (I,J) ,J»1,NY) 

+ 1*1, NX) 

00166 1020 CONTINUE 


C TRANSFORM P - TI*P*TI * 

00157 1030 NXT=NX 

00168 DO 1050 1*1, NOT 

00169 DO 1050 J *1 , NTOT 

00170 .. DU.M*0. 

00171 DO 1040 K=l,NTOT 

00172 1040 DUM=OU M+DUMMY2 (I , K) * (-REAL (Wll (K,J))) 

03173 105.5 DUMMY (I , J ) *DUM 

00174 DO 1070 1=1. NOT 

00175 DO 1070 0=1, NOT 

00175 DU 4=0. 

03177 DO 1360 K«l,WfOT 

U0173 1050 OUM=OUM+DUMMY (I , K) *DUMMY2 (J , K) 

00179 1070 Wll (I,J)*C:«1PLX (-DUM, 0, ) 

C COMPUTE RMS AMD CORRELATION 

00180 DO 1030 1*1, NOT 

00181 DUM=~REAL(W11(I,I)) 

*51C2 IF (DU 4.02.0.) GO TO 1033 

*34 WRITE (TOUT, 1075) 

-35 1075 FORM AT (5X, # FILTER RICCATI MATRIX NOT NON-NEGATIVE * ) 

fc .85 1080 WS (I )=SQRT (DUM) 

00187 DO 1100 1=1, NOT 

00183 DO 1100 J=1,NXT 

00189 IF('.-T!(I) .EQ.0..GR.WR(J) .EQ.0.) GOTO 1090 

00191 DUMMY (I, J)=-REAL (Wll (I, .7) ) /{KR (I )«WR(J ) ) 

00192 GO TO 1103 
60193 1090 DUMMY (I,J)=0. 

00194 DUMMY (J , I ) =0 . 

00195 DUMMY (I,I)=1. 

00196 11.00 CONTINUE 

00197 IDEN=LAST.IDH 

00193 WRITE (I PFCUT) IDEM, NOT, (KR(I), 1*1, NOT) 
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00199 IPSM=IDEN+1 

00200 ' VRITE (IPFOUT) IDEN,NXT,N)Cr, ( (DIWY(I,J) ,J*l,NXr) ,I»1,NXT) 

C 'HIE END 

00201 1530 DO 1510 I-IDEN+1, 130 

00202 1510 WHITE (IPFQUT) 1,11,11,00 

00203 2000 STOP 

00204 END 
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RT-11 INDEX Vi* 3 CROSS REFERENCE LISTING L3-APU-79 02:25:24 PAGE JiMJ? 


A 

ARM 

ARRAY 

ASSIGN’ 

C 

CABS 

CMPLX 

CO 

r» 

DUM 


DU-W 


DUMMY2 

EIGRF 

EVU 

EVEC 
FMAM E 
F21 
Cm 

CM 2 

U 

r 


IARRAY 
I DEN 


3838SDI 23345RD 
38833DI »M388EQ 
80385DI 83389EQ 
88328CL 8J324CL 
M'MTCX 83213E0 
83184 
32179 

83837CX 88316DA 
83837CX 33118= 
83127= 83129= 

83143 83151= 

88173= .Ml 79 
3883SDI WvJilyEQ 
83142= 3,1148 

33194= .13195= 
888.55DI 83889EQ 
838 52CL 83855CL 
88384CX 3331 3D A 
83 11 S-.'R 

83234CX 88839EQ 
333 3 ID I 88819RD 
>1333201 3331 IDA 
333 3 2D I 33 31 IDA 
33332DI 83389EQ 
23 33 2D I 3331 IDA 
83819RD 33 3 2 3RD 
2334 3RD 23345RD 
83838DO 23381 
23134 23113 

33133 33 13?\'R 

33149DO 33153 
>1317400 23178 
23191 33193 

2J235DI 33vJ39SQ 
33.527RD 38 .3281 F 
8823 5°. D 88335 IF 
8834 3RD 33344IF 
.'*8114= 33115'/R 

33131= 33132WR 

33 154 IF 88155RD 


83345RD 83134IF 33153 
83388EQ 3881 IDA 8834 3RD 38351 
83889 EQ 83354AG 
0J324CL 

83213E0 83391AG 


338 5 SAG 


83232.VR 

33112 

83133 

23153= 

33181= 

83351= 

88154= 

33283WR 

38148= 


38139= 

28154 

33182IF 

32352AG 

83155WR 


38141= 

03178= 

33186 

83133= 

33173= 


ORIGINAD PAGE IS 
OF POOR QUALITY 


33142 33145= 33147= 

38172= 83173 33176= 

33119WR 38/133= 38132WR 
33178 33191= 38193= 


33153 33165RD 83172 33178 


83332AG 83354WR 33365AG 23373IF 83375IF 33379= 


8331 3DA 

08323AG 

83331RD 

23333RD 

38 3 3 SR D 

83837RD 

83831RD 

8334900 

33882 

83112 

88136DO 

83154 

33179 

83194 

V/8354AG 

33329RD 

883 37RD 

88 8 4 SR D 

83115= 

83155= 

83197= 


I ERR 

83852AG 

00055AG 

C00S5IF 

II 

88858= 

■00052 


TIM 

881 4DA 

00019RD 

000 2 3RD 

I NT 

33885DI 

00 01 2D A 

00052AG 

I GUT 

88814DA 

00017VR 

00021WR 

IPFIN 

88814DA 

00020AG 

0002 TOD 


88339RD 

0O04IRD 

0004 3RD 


831 5 3RD 

00 i ^5RD 


•iPFarr 

38314DA 

00024AG 

000 5 4 AG 


33132/VR 

00 1 53WR 

00 1 59WR 

r.v'K 

8381 5DA 

0-0 091 AG 


n 

88815DA 

00I23WR 

00159WR 

1900 

3301 SDA 

00054AG 


J 

83231RD 

00 03 3RD 

00 03 3RD 


33362AG 

23323RD 

83147 

33852= 

83352 

38129 

88 3 3 3RD 

83358 

83833 

8211 SAR 

83141 

33155/iR 

33183DO 

33195 

83333IF 
88 3 3 31 F 
83345IF 
33117VR 
3815<7','R 
88 19. 7a R 
233 91 AG 


83365AG 
833 24AG 

32141 


28 3 3 5RD 

38352 

88834 

88117.-/R 

33142 

33155RD 

83131 

83190WR 

23331RD 

83839RD 

33347 RD 

23118= 

83150 = 

38199= 

83892IF 


23382 23333 33334= 


33337RD 
83359DO 
83393DO 
8011SWR 
3314 3D0 
831 5800 
22185 
23288 , .\R 

83332IF 

88842IF 

82355= 

83119\’R 

331 59/33 

3323J/.'R 


88339RD 

33351 

83132 

83125DO 

33147 

83172 

33137DO 

33 2 8 IDO 

833 3 3RD 
8334 1RD 
88853= 
88122= 
23152 
38 2 3 IDO 


3834 1RD 

33354'VR 

8318ID0 

38129 

03140 

32173 

32 189 IF 

33282v , R 

38834IF 

38342IF 

33354'.>;r 

33123WR 

33163RD 


23333’n'R 23394WR 881P4WR 
38333RD 33335RD 83237RP 
03352RW 883 54 AG J8161RW 

33117.-/R 08119531 00123WR 
83232VR 


D 8334 3RD 08J45RD 88351DO 23352 
107 





RT-U INDEX V03 CROSS REFERENCE LISTING 10-APR-79 02:25:24 PAGE 00007 



0005000 

030 51 

00071= 

30378* 

00079 

00082 

00033 

00084 


004351 F 

0049900 

00100 

0010300 

00104 

00107 

0011 IDO 

04112 


00117/.R 

44119WR 

4012500 

00129 

00130 

40132WR 

00137DO 

04138 


00142 

40144DO 

00147 

00140 

00150DG 

00153 

00154 

40155WR 


00155RD 

401591X3 

00172 

00173 

00175DO 

00178 

00179 

001C8DO 


001 BO IF 

00191 

00193 

00194 

04200WR 




JJ 

00133= 

00141 







JFAX 

00107= 

00113 







K 

O0025DO 

0007200 

00073IF 

0007 51 F 

00079 

00032 

00083 

00084 


00 12 EDO 

00129 

40140DO 

00141 

0014500 

00147 

00152DO 

•00153 


44152DO 

0017100 

00172 

40177DO 

00173 




L 

00081* 

00093 







LASTID 

0001 5DA 

0305 4AG 

00055 

00150= 

00197 




Lt:0I'2C 

00391CL 








Ml 

0004 7RD 

30123IF 

0412500 

00132WR 





MiP 

00047RD 

00050 

00055 

000571 F 





M2 

00047RD 

t’0049130 

00 134 IF 

0013700 

0014400 

00 i 5000 

04152DO 

04157.VR 

M2P 

00047RD 








NDM3 

00015DA 

40J52AG 

00091AG 






NDI'lfi 

v?0015DA 

030S5AG 







WOT 

00055= 

30059DO 

00 0-50DG 

00052AG 

OOOoWR 

40 45 SAG 

00072DG 

O0O2ODO 


00031 

33385IF 

00 091 AG 

0009000 

00099QO 

00 10 IDO 

00103DO 

04 11 IDO 


0J115WR 

00117.VR 

00119WR 

0012500 

0012PDO 

00132WR 

03 13^00 

04 13 >3 


00143DO 

33145DO 

00149DO 

00153WR 

001S9DO 

00171DO 

0017700 


NU 

00029RD 








MW 

0002DRD 

0005100 

0014000 






NX 

00031RD 

00 03 3RD 

00035RD 

00037RD 

00039RD 

00041RD 

00043RD 

00445RD 


00 IS 3RD 

031A7 







NXC 

00029RD 








MXS 

00029RD 









00157= 

0315SOO 

00174DO 

00175DO 

04180DO 

0018700 

00133DO 

0019OWR 


00200WR 








j\iy 

00031RD 

33 03 3RD 

00035RO 

40037RD 

00443RD 

00045RD 

04155RD 


KYO 

0002ORD 








NYS 

00029RD 








uz 

40029RD 








PX 

0001 IDA 








QD 

00 00 3D I 

0001 IDA 

40039RD 00141 





RD 

0-0 00 3D I 

03 31 IDA 

00041RD 

00129 





REAL 

40473TF 

000751 F 

00100 

00129 

00147 

00172 

00181 

00191 

REWR 

00054CL 








RO 

0001 5DA 

03123WR 

00159.\'R 






GCALE 

000-4501 

03310EQ 

OOOiiDA 

00052AG 

00 05 sag 




SF 

00102= 

001 051 F 

00108- 






SFF 

00104= 

001051 F 

00103 






SQRT 

00185 








Ti LNLVi 

00001DI 

00 01 2D A 

V/0054AG 






WA 

00007CX 

00313SQ 

000S1AG 






WI 

00005DI 

0001 IDA 

00052AG 

0005 SAG 





WK 

0000-501 

ttMlOSQ 

v; 40 5 2 AG 

00 05 SAG 





W R 

00 40 50 1 

00 01 IDA 

00052AG 

00 05 SAC 

00105= 

40189IF 

00191 

00193WR 

Ml 

0000.7CX 

00338EQ 

00082- 

04091 AG 

001-00 

00129 

00147 

00172 


00170= 

00131 

40191 






W21 

v30004CX 0000SEQ 04083= 

000 91 AG 

00104 

40114 

00112= 

40117.-JR 


lOS 




^«;a«t3f»y7WB«qCT^ f r **m** t> W 
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10 00017.%'R 20018* 

1000 00149DO 0J150DO 20154* 

1010 00135GT 00153* 

1015 00157GT 00150* 

1020 0015200 00155* 

1030 ./0153RD 00157* 

1040 0017100 00172* 

1050 0015SDO 00159DO 00173* 

1060 00177DO 00178* 

1070 00174DO 00175DO 00179* 

1075 00134WR 00135* 

103-0 t ’ 01 8000 00183GT 00185* 

1090 0v)19iX5T 00193* 

1100 00187DO 001 83DO 00192GT 00195*. 

15 00021WR 00O22* 

1500 00059GT 0007iiTGT 0023JGT 00096CT 00201* 

1510 00201DO 00202* 

20 00019RD 00 02 3RD 00025* 

2000 00203* • 

3-J 00025DO •,’0048* 

40 00027RD 00049* 


45 0004900 000S1DO 00052* 

50 0005900 00560DO 00O51* 


780 

00059WR 

MM9+ 


790 

00067GT 

20071* 


795 

0007, OAR 

20077* 


800 

0009000 

20084* 


910 

0007200 

00074GT 

20087* 

820 

00033WR 

20039* 


330 

0002 5GT 

20091 * 


840 

03094 WR 

20095* 


850 

00093GT 

20097* 


850 

00092DO 

22099DO 

22122* 

870 

0010300 

20105GT 

20129* 

880 

0011100 

00112* 


990 

0010100 

00113* 


895 

00121GT 

20125* 


900 . 

00123DO 

20129* 


910 

00125DO 

20120)0 

20132* 

920 

00124GT 

20133* 


950 

0014000 

20141* 


950 

0013500 

22137DO 

02142* 

970 

0014500 

20147* 


980 

00143DO 

201*14DO 

02148* 

990 

00152DO 

20153* 
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C 

C 

C 

c 

03001 

c 

00002 

C 

00003 

C 

00004 
00305 

00005 

C 

00007 

00008 
00009 
00013 
00011 

C 

00012 

00013 

00014 

C 

00015 
00015 
00017 
00013 

r* 

33019 
*iv302«5 13 

33321 

33322 
03323 
33324 12 
03325 
33326 
iWM7 

33323 14 
03329 
(3^^325 23 

C 

C 

C 

c 

c 

c 

•33331 

33332 

33333 
33335 
33337 
33339 


BLOCK 5 - THE REGULATOR PROBLEM 
THIS ROUTINE COMPUTES THE REGULATOR GAINS USING THE 
PROBLEM FILE GENERATED IN BLOCK 1 AND ADDITIONAL 
INPUTS OF QRD AND RRD. 

DIMENSION FRAME (4) # TTLNEW(5) 

INPUT MATRIX .ARRAYS 
DIMENSION RRD (5) , QRD (33) 

PROBLEM FILE INPUT MATRIX ARRAYS 
DIMENSION F (15, 15) ,G(15,5) ,IIR(I5,15) 

OUTPUT ARRAYS 

DIMENSION CG (5,15) ,PX (15, 15) ,ARM (33, 23) 

COMPLEX W21 (15, 15) ,EVAL(33) ,EV2C (33, 33} 

EQUIVALENCE (CG,ARM) 

’VCR KING ARRAYS 

DIMENSION WK (33, 33) ,WI (33) ,WR(33) , SCALE (33) ,INT (33) 
DIMENSION ARRAY (333 ) ,IARRAY(933) 

COMPLEX DD,C3,W11 (15, 15) ,C(15) ,WA(225) 

EQUIVALENCE (SCALE, C) , (EVEC,WA,F) , (UK,W21,HR) , (ARM/Nll) 
EQUIVALENCE (ARM, ARRAY, IARRAY) 

INITIALIZE ARRAYS 

DATA RRD , QRD , F , G , HR , CG , PX , ARM , SCALE, V/R, W 1/1053*3./ 

DATA INT /33*3 / 

DATA W21, EVAL,EVEC,DD,W11,C /13S5* (3. , 3. ) / 

OTHER DATA 

DATA I IN, IOUT, IPFIN, IPFOtfT /5,7,23,21/ 

DATA INK, 1933 , LASTID, NDIM3, NDIMS /225,933,62, 15, 33/ 

DATA I1,R3,C3 /l , 3. , (3. , 3. ) / 

CCM M CN/IO/I IN , IOUT 

READ PROBLEM FILE NAMES AND REGULATOR TITLE 
WRITE (IOUT, 13) 

FORMAT (23X, ’REGULATOR GAINS - BLOCK 5 *,/,2X, 

+ ’INPUT PROBLEM FILE NAME ? ’ ,$) 

READ (I IN, 23) (FNAME(I) ,1*1,4) 

CALL ASS IGF ( I PF IN , FN/VME) 

WRITE (IOUT, 12) 

FORMAT (2X, ’ OUTPUT PROBLEM FILE NAME ? ’,$) 

READ (I IN, 23) (FNAME(I) ,1*1,4) 

CALL ASSIGN (IPF0U7, FRAME) 

WRITF. (IOUT , 14 ) 

FCRMAT (2X , ’ PROBLEM TITLE (23 CHARS) : ’,?) 

READ (I IN , 23 ) (TTLNE'I (I ) , I— 1 , 5) 

FORMAT (5AM) 

GET DATA FROM PROBLEM FILE: 

TITLE IDEN-l 

DIMENSIONS IDCN=2 
F MATRIX IDEN-24 

G MATRIX I DEN-25 

HR MATRIX I DEN-20 
DO 33 X=l, 31 
READ (I PF IN , END=4 3 ) IDEM 

IF(IDEN.EQ.l) READ(IPFIN) IDEM , NXS , NXC , NU , MN , NZ , NYS , NYO 
I F ( I DEM . EQ. 23 ) READ(IPFIM) IDEM, NX, MY, ( (F(I , J) ,0=1, NY), 1=1 
IF(IDEM.EQ.24) READ (IFF IN) IDEM, NX, NY, ( (G (1,0) ,J=i,NY) ,1=1 
I F ( IDEM . EQ. 27 ) READ ( I PF IN ) IDEM, NX, MY, {(HR (I,J) ,0=1, NY) ,1= 


, NX) 

, NX) 
1, NX) 
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0O041 30 
C 

: 00042 40 
00043 

c 

MM4 ” 
MW45 45 

mmi 

13M49 
dtfdSd 55 
Mfol' fit 
0M52 

C 

C 

c 

c 

c 

c 

<30054 
00055 
00057 
00055 70 
O0059 
■00050 80 
C 

c 

c 

00051 

00052 

00053 

00054 

00055 90 
00055 
00047 
00053 • 
00049 

00070 

00071 100 

00072 110 

00073 ■ 

00074 

00075 
00075 

00077 

00078 120 

00079 130 
00030- 
00031 
00082 

00033 

00034 140 

n . 

Vj 

00085 


CONTINUE 

I«AD I PE IN, WRITE IPFOUT, COMPOSING NKV TITLE 
REWIND IPFIM 

CALL RSVR (IPFIN, IPFOUT, mNEW, 1900, [AST I D , ARRAY , IARRAY) 

READ QRDAND RRD MATRICES FROM INPt/r FILE 
WRITE (LOUT, 45) 

FORMAT (2X, 'NON-ZERO DIAGONAL OR ELEMENTS :') 

CALL RBADMX (NZ+NYO,ORD, IERR) 

IF(IERR.NE.l) GO TO 53 
WRITE (IO'JT, 55) 

FORMAT (2X, 'MOM-ZERO DIAGONAL RR ELEMENTS : ') 

GALL READ MX (MU , RRD, IERR) 

IF(IERR.NE.l) GO TO 50 

AT THIS POINT, A CHECK SHOULD GE PERFORMED TO SEE IF (F G) , 
IS STABILIZABLE. IN THIS VERSION THIS CHECK IS MOT MADE. . 
IF (F G) IS MOT STABILIZABLE, IT WILL BE APPARENT FROM 
THE TRANSFER FUNCTIONS OF THE CLOSED LOOP SYSTEM, SINCE THERE 
WILL BE UNSTABLE POLES. 

CHECK IF RRD HAS FULL RANK 
DO 20. 1=1, NU 

IF (RRD (I ) ,NE. 0. 0) GO TO 30 
WRITE (IOUT, 70) 

FORMAT (5X, 'RRD DOES MOT HAVE FULL RANK') 

•GO TO 225 
CONTINUE 

( FT HTQH) 

ASSEMBLE ARM = ( ) 

(GRIGT -F ) 

MXr=NXC4NXS 
DO 90 1=1, NXT 
DO 90 J=1,NXT 
ARM(I,J)=F(J,I) 

PX(I,.7)=F(I,J) 

DO 110 1=1, NOT 
ii=i-pjxr 
DO 110 J=i,NXT 
DU >1=0.0 
DO 100 K=1,N1J 

DUMOUM+G (I,K')*3 (J,K)/RRD(K) 

ARM ( 1 1 , J ) =DU M 
DO 130 1=1, NOT 
DO 130 J=1,NXT 
JJ=OMNXT 
DU M =0.0 

DO 120 K=i , NZ+NYO 

D'JM=DUMH IF. (K , I ) *HR (1C ,J)*nnD (K ) 

ARM(I,J.7)=DUM 
TO 1M0 1=1, NXT 
II=I+MXT 
DO 140 J=1,NXT 
JJ-7-KMXi* 

ARM ( 1 1 , J.J ) =-F ( I , J ) 

WRITE CRD, RRD, AND, ARM TO PROBLEM FILE 
IDEN=LASTID+i 
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0008 <1 
0O037 
00 033 
00039 

00090 

00091 
J0092 

00093 

00094 

00095 


00095 

00097 

00099 

00100 150 

00101 

C 

C 

c 

00102 150 

00103 

00104 

00105 
00103 155 

00109 

00110 
00111 
00112 

00113 

00114 

00115 170 
00115 
00118 180 

00119 

00120 190 

00121 

C 

00122 200 
00123 
00125 
00128 210 

00127 

00128 220 

00129 

00130 

00131 230 
C 

00132 

00133 

00134 

00135 
•00135 
00130 


\'nrr=NZ+NYO 

WRITE (IPFGUT) IDEM, NOT, (QRD(I) ,I=1,MQT) 

IDE.N=IDEN+1 

WRITE (IPFOUT) I DEN, Ml, (RRD(I) , I=1,MJ) 

IDEN=IDEN+1 

M>Cr2=2*MXl’ 

WRITE (IPFOUT j IDEN,NXT2,NXT2, ( (ARM (I,J) ,J=1,NXT2) -,I**1,NXT2) 
COMPUTE OPEN LOOP EIGENVALUES AND WRITE THEN 

CALL EIGRF(PX,NXT , NDIN3, 0, EVAL, EVEC, INT, SCALE,WR,WI,WK, IERR) 
IDEN-ICEN'bL 

WRITE ( I PFCUT ) IDEN,NXT, (EVAL(I) ,1=1, NOT) 

COMPUTE CLOSED LOOP EIGENVALUES AND EIGENVECTORS 
CALL EICRF ( ARM , 2*NXT , WINS, 1 , EVAL, EVEC, INT, SCALE, WR, WI,WK, IERR) 
IF(IERR.EQ. 0) GO TO 180 
WRITE (IOUr, 150) 

FORMAT (5X, 'ERROR COMPUTING CLOSED LOOP ElGSNSVSTEM' ) 

GO TO 285 

(Wll) V.'ITTI EIGENVECTORS CORRESPONDING TO 
FORM ( ) EIGENVALUES WITH POSITIVE REAL 

(W21) PARTS 

.1=0 

DO 1C0 X=1,2*NOT 

IF(REAL(EV\L(K)).LT.0.0) GO TO 180 
IF (REAL (EVAL (K)) .EQ.fl.0) WRITE (IOUT, 185) 

FORMAT (5X, 'REAL PART OF C.L. EIGENVALUE = 0.0') 

J=.7+i 

EVAL (J ) --EVAL (K ) 

DO 170 1=1, NXT 
L=WXT+I 

W11(.J,I)=SVEC(I,K) 

W21 (7,I)=EVEC(L,K) 

EVEC (I,J)=EVEC(I,K) 

IF(J.EQ.NXT) GO TO 200 

CONTINUE . 

WRITE (IOUr, 190) 

FORMAT (5X, 'EPJ30R IN EIGENVALUE SELECTION') 

GO TO 205 

COMPLEX SOLirriON COV = W11*W21**-1 
CALL L KQT2C (W21 , MXr , NDIM3,Wil , NXT,NDIM3, INT, C, IWK,WA, IERR) 
IF(IERR.EQ. 0) GO TO 220 
WRITE (IOUr, 2.10) IERR 

FORMAT (5X, 15, 'ERROR IN EIGENVECTOR DECOMPOSITION") 

GO TO 285 . 

CONTINUE 
DO 230 1=1, NXT 
DO230J=i,MXT 
PX(I,J)=REAL(W11(I,J)) 

CO-1PUTE NORMALIZED EIGENVECTORS 
DO 250 1=1, NXT 
SF=0. 

DO 240 .7=1, NXT 
GFF=CABS (W21 (I , J) ) 

IF(SF.GT.SFF) GO TO 240 
JMAX=0 
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•00139 SF=SFF 

00140 240 CONTINUE 

00141 DD— V21 (I,JMAX) 

00142 DO 250 J=1,NOT 

00143 250 W21 (I,J)-.n’21 (I ,J)/DD 

00144 250 CONTINUE 

C COMPUTE REGULATOR GAIN MATRIX 

00145 DO 280 1=1, MU 

00145 DO 280 J=1,MXT 

00147 DUM=U. 0 

00143 DO 270 3=1, NXT 

00149 270 DUM=OUM+G (K , I ) *PX (K , J ) /RRD ( I. ) 

00150 280 CG(I,J)=DUM 

C WRITE CLOSED LOOP EIGENVALUES AND NORMALIZED EIGENVECTORS 

C AND TRANSITION MATRIX AMD REGULATOR GAIN MATRIX 

00151 IDEN=IDEN+i 

00152 WRITE (IPFOUT) IDEM, MOT, (EVAL(I) ,1=1, NOT) 

00153 IDEN=IDEM+1 

00154 WRITE ( I PFOUT ) IDEM , NXT , NXT , ( ( W21 (I , J ) , J*i , NXF ) , l-i , NXT ) 

00155 IDEN=IDEN+1 

00155 WRITE (IPFOUT) IDEM, NXF, NXT, ( (PX(X,J) ,J=1, NXT) ,1=1, NXF) 

00157 IDEN=IDEN+1 

00158 WRITE (IPFOUT) IDEM, MU, NOT, ( (CG (I ,J) ,J=1,NXD ,I“1,NU) 

C THE END 

0D159 285 DO 290 I=IDEM+1,130 

00160 290 -RITE (IPFOUT) I,Ii,Il,C0 

00161 1000 STOP 

00162 END 


ORIGINAL Race is 
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ARM 

OO0O4DI 

AW05EQ 

OOOIOEQ O0011EQ O0012DA 

00054= 

00072= 


00084= 

00392WR 

00-095AG 





ARRAY 

00008DI 

00011EQ 

0004 3AG 





ASSIGN 

00022CL 

00026CL 






C 

00009CX 

00010EQ 000I4DA 

00122AG 




CABS 

00135 







CG 

00004DI 

00005EQ 

00012QA 

00150= 

00158WR 



C0 

00J09CX 

000I7DA 

00160WR 





DD 

0000 9CX 

0O0i4DA 

00141= 

0-0143 




DUM 

00059= 

00071= 

00072 

00075= 

00078^ 

00079 

00147= 


00150 







EIGRF 

000S3CL 

00095CL 






EVAL 

00005CX 

00014DA 

00 093 AG 

00099.VR 

00096AG 

00104 IF 

OO10GIF 


00152VR 







EVEC 

00005CX 

00010EQ 00014DA 

0OO93AG 

0009SAG 

00113 

00114 . 

F 

00003DI 

OOOiOEQ 

00O12DA 

0O035RD 

00054 

00055 

00034 

Fi'IAME 

00 00 ID I 

00021RD 

0OO22AG 

00025RD 

00026AG 



G 

00 00 3D I 

00012DA 

00038RD 

00071 

00149 



HR 

00003DI 

OOOIOEQ 

00 01 2D A 

OO040RD 

00078 



I 

O0021RD 

000 2 SR D 

00O29RD 

O0035RD 

00033RD 

0004 ORD 

0OO54DO 


0005200 

00054 

00055 

00058DO 

00057 

00071 

0OO73DO 


00079 

OO0OODO 

00081 

00084 

00037//R 

00039WR 

00092WR 


00111DO 

0-0112 

00113 

00114 

00115 

00129DO 

00131 


00135 

00141 

00143 

00145DO 

00149 

00150 

00152'JR 


00153WR 

0015OWR 

00159DO 

OOIGOWR 




IARRAY 

00003DI 

00011EQ 00043AG 





IDEM 

00032RD 

OO033IF 

OO034RD 

000351? 

0003^RD 

00037IF 

00 03 CRD 


00040RD 

00085= 

0O037NR 

00088= 

00089WR 

00090= 

00092' -/R 


00099-, ’ R 

00151= 

00152-m 

00153= 

00154WR 

00155= 

0015GW'R 


0015RWR 

00159DO 






I ERR 

00045AG 

OO047IF 

O005IAG 

00052IF 

00 093 AG 

00095AG 

O0O97IF 


00123IF 

O0129.VR 






II 

00057= 

00072 

00081= 

00034 




IIN 

00 01 50 A 

0O0I8CM 

00021RD 

00025RD 

00029RD 



INT 

00007DI 

0001 3DA 

00 093 AG 

OO 09 8 AG 

00122AG 



ID 

00-018CN 







IOUT 

0001 5DA 

0001804 

00019WR 

0O023WR 

00027a'R 

0004 4WR 

0004 WR 


O0099WR 

00107VR 

00119WR 

00125VR 




IPFIM 

0001 5DA 

O0022AG 

O0O32RD 

00034RD 

00035RD 

0003 3RD 

00O40RD 


00043AG 







IPFOUT 

0001 5DA 

0002-5AG 

00043AG 

00037AR 

0003 9WR 

00392VR 

00095WR 


00154WR 

00155WR 

00158WR 

0016ONR 




IWK 

00O1 PDA 

00122AG 






II 

00017DA 

OOiGOWR 






1900 

0 0 0 X 50 A 

0004 3AG 






J 

0O035RD 

00O38RD 

OO04ORD 

00053DO 

J0034 

00055 

0O058DO 


00072 

00074DO 

00075 

00073 

0 00-5200 

00083 

00084 


00102= 

00109= 

00110 

00113 

00114 

00115 

O0115IF 


00131 

O0134DO 

00135 

00138 

00142DO 

00143 

00145DO 


00150 • 

0O154WR 

O015SWR 

00 1 58WR 




JJ 

00075= 

00079 

00083= 

00004 




JMAX 

0.0138= 

00141 






K 

00031DO 

0007ODO 

00071 

O0077DO 

00073 

00103DD 

00 104 IF 


00110 

00113 

00114 

00115 

00148DO 

00149 



00O55IF 

00378 

0009SWR 

00I32CO 

00i54WR 


00092WR 
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L 00112= 00114 

LASTID 0001SDA 00043AG OO035 
LECiraC 00122CL 

NDIM3 OOOICDA O0093AO 00122AG 
NDI’-ir, 00016DA 00096AG 

wgr 00035= ooost.vr 

NU 0OO34RD 00J51AG 00054DO 0O070DO 0O039WR 0014500 00153WR 

MW 00034RD 

NX 00035RD 00 03 3RD 00O40RD 

NXC 00034RD 00051 

NX3 P0034RD 00051 

NXT 00051= 0O052DO 0035300 00055DO 00057 0005300 0007300 0OO74DO 

00075 O0O3ODO 00001 00082DO 00083 00091 00093AG 00095WR 

0OO95AG 0O1O3DO 0O111DO 00112 00116IF 00122AG 00129DO OO130DO 

0013200 00134DO 0O142DO 0014500 0O148DO 0O152WR 00154WR 00155WR 

00155V.-R 

NXT2 00091= 00092WR . 

NY 00035RD 0003BRD.- 00040RD 

NYO O0O34RD 00045AG 00077DO 00035 

NYS 00O34RD 

NZ 00034RD 0004 SAG OO077DO 00035 

PX 000O4DI 000i2D\ 00055= 0O093AG 00131= 00149 0O15SWR 

CRD 0OOO2DI OO012DA 0004 SAG 00070 00037WR 

READ4X 00045CL 0OO51CL 

'M' REAL 001O4IF OOiOSIF 00131 

REWR 00043CL 

RRD 000.J2DI 00012DA 00051AG O0055IF 00071 00089WR 00149 

RO 00017DA 

SCALE 0000 7DI 0001OEQ 0O012DA OO093AG 00095AG 

SF 00133= O013SIF 00139= 

SFF 00135= 00135IF 00139 

TTLMEW OO OO ID I 0O029RD O0O43AG 

WA OO0J9CX O0O10EQ 00122AG 

WI O0OO7DI 00012DA 00093 AG O0095AG 

WK O0O07DI OOO10EQ 00093AG 00095AG 

WR 0000701 00012DA 00093AG 00095AG 

Wii OOO09CX 00010SQ 00014DA 00113= 0O1-22AG 00131 

W2i 0OOO5CX O001OEQ 0OO14O \ 00114= 00122AG 00135 00141 00143= 

001 54'.': R 

10 P0019WR 0OO2O* 

100 0007000 0O071* 

1000 00151* 


110 

'00055DO 

0006ODO 

00072* 

12 

0002 3WR 

00024* 


120 

00077DO 

00078* 


130 

00073DO 

00O74DO 

00079* 

14 

00027.VR 

00028* 


140 

0003000 

0008.200 

00084* 

150 

00099WR 

00100* 


160 


00 102* 


165 

001077R 

,30108* 


170 

00111DO 

00115* 


130 

0010300 

00105GT 

00113* 


190 00119.-/R 00120* 
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00021RD 

M11757 

0»i24GT 

00129DO' 

0013400 

0014 200 

0013200 

00 14 SOD 

0014500 

00059CT 

0015900 

00031DO 

00032RO 

00044WR 

0J046* 

0004SHR 

00051* 

00057'Ti 

■00054DO 

00052DO 


04025RD 00029RD 00030* 

00122 * 

00126* 

00128* 

0w 13000 00131* 

00137CT 00140* 

00143* 

00144* 

00149* 

0014600 00150* 

00 10 ICC 00121GT 00127CT 00159* 
00160* 

40041* 

■00442* 

00045* 

J044CGT 

04054* 

40453GT 

00058* 

0-0056GT 00060* 

0J083DO 04065* 
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MCiU SUBROUTINE READMX (IMAX, ARRAY, T ERR) 

c iwrr-in rfads matrix element of the form: 

C I, VALUE 

C CHECKS FOR DM OS’S IONS COT OF RANGE AND FORMS x 

C / RRAY ( I ) “VALUE 

tWi)2 cawoN/to/ ON, ioi/r 

W.1.5.1 DIMENSION ARRAY (IMAX) 

WW4 READ(nN,I.5,ERR«5J) I, VALUE 

AWW5 Ii) FORMAT (I, E) 

iW0d6 'IFM.Cr.I'AX OR.I.LT.rl) GO TO 3.1 

MW3 IF (I. EC. 4) GO TO 2.1 

*5.5.11.3 ARRAY (I) “VALUE 

wMli IERR“.) ' ' 

DM12 RETURN 

C ERRORS: I ERR* l - IO INDICATING TERMINATION OF DATA FOR 

C THIS MATRIX 

C IERR«*2 - DIMENSIONS OUT OF RANGE 

C IERR“3 • - VRDHG FORMAT CM INPUT 

i5.W13.2J- rERR»l 

W.li'l RETURN 

.AW 15 3*1 IERR-2 

*V31S WHITS (IOUT, 4*5) I, VALUE 

.1.5.117 4.1 FORMAT (SX, 'DIMENSIONS OUT OF RANGE FCR ' ,3X, I3/E15. A) 

Wills RETURN 

AS4I9 5.1 IEH1>3 

W.12.5 WRITS (IOUT,fi*1) 

.1*1.121 GJ FORMAT (5X, 'WRONG FORMAT') 

.1.1.522 RETON 

WJ23 END 
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C 

C 

C 

C 

C 

c 

33331 

c 

33302 

33333 

C 

33334 

C 

33335 
03334 
33337 

3332a 

c 

03339 

00010 

03311 

c 

00312 

30313 

03014 - 

30315 

C 

30015 • 

23017 10 

03013 
30319 
00020 
03021 12 
00322 
30023 
33324 
03025 14 
03325 
33227 23 
C 

23323 

33029 

C 

C 

c 

r* 

c 

c 

c 

03333 

03331 

03332 
02334 


BLOCK 5 - SENSITIVITY CALCULATIONS 
‘nilS ROUTINE READS THE CLOSED LOOP EIGENVALUES AND 
EIGENVECTORS, TOE REGULATOR GAINS , TOE F AND G 
MATRICES FROM TOE PROBLEM FILE AND COMPUTES THE 
NORMALIZED SENSITIVITIES N.R.T, F, G, AND K FOR 
EACH EIGENVALUE. 

DIMENSION PNAME (4 1 ,TTLNEM ( 5 ) 

INPUT MATO ICES 

DIMENSION F (15, 15) ,G (IS, 5) ,CG (5,15) 

COMPLEX EVAL{15) ,EVEC(15, 15) 

OUTPUT MATRICES 
COMPLEX Sill (15, 15) 

WORKING STORAGE 

COMPLEX DO, WA(225),W21I (15,15), C(15) 

DIMENSION ARRAY 1933) , I ARRAY (D33) 

DIMENSION IPVT(IS) 

EQUIVALENCE (ARRAY, IARRAY) , (ARRAY,WA) , (ARRAY (451) ,W21t ) 
INITIALIZE 
DATA IPVr /15*3/ 

DATA F,G,CG /450*0./ 

DATA EVJSL,EV>X:,SIII,WA,W2n,C /933*(3. ,2.)/ 

OTHER DATA 

DATA IIN,IOUT,IPFIM,IPFOirr /5, 7, 23, 21,/ 

DATA NDIM3, LASTID, 1225, 1933 /15, 73, 225,933/ 

COMPLEX C3 

DATA II, C3 /l, (3. ,3.)/ 

READ PROBLEM FILE NAME AMD NEW TITLE 
WRITE (IOUT, 13) 

FORMAT (23X, 'SENSITIVITY - BLOCK G ',/,2X, 

+ 'INPUT PROBLEM FILE NAME ? ' ,$) 

READ (I IN, 23) (FfTVME(I) ,1*1,4) 

CALL ASSIGN (IPF IN, FRAME) 

'•RITE (IOUT, 12) 

FORMAT (2X* 'O'JTFUT PROBLEM FILE NAME ? ' ,$) 

READ (I IN, 23) (FNAME(I) ,1=1,4) 

CALL ASSIGN (I PFCUT, FMAME) 

WRITE (IOUT, 14) 

FORMAT (2X, 'PROBLEM TITLE (23 CHARS) : ',$) 

READ (I IN, 23 ) (TTLNEN (I ) , I»1 , 5) 

FORM AT (5A4 ) 

READ IFF IN, WRITE IPFOUr, COMPOSING NEW TITLE 
CALL REWR (IPFIN , IPFCUT, TTLNEM , 1933 , LASTID, ARRAY, IARRAY) 

REWIND IP” IN 

• READ THE FOLLOWING FROM THE PROBLEM FILE: 

DIMENSIONS - IDEN»2 
F MATRIX - IDEN-24 

G MATRIX - IDEN<*25 

CL EVALD - IDEM*4? 

CL EVECS - TDEN“SB 

REG GAINS - IDKN-73 
DO 33 K*!, LASTID 
READ ( I PF IN , FND~35 ) I DEN 

IF (IDEM. EO. 1) READ (IPFIN) IDEN,NXS,NXC,NU,t«,NZ,.vrYS,NYO 
IF(IDSN.EQ. 23) READ (IPFIN) I DEN, NX, NY, ( (F(I,J) ,J»1,NY) , I«i,NX) 
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00035 
. 00033 
000<)0 

00042 

00044 JO 

00045 35 
00045 

C 

c 

c 

00047 

00043 40 

00049 

00050 

00052 

00053 50 

00054 

00055 50 
C 

00055 

00057 

00058 

C 

00059 70 

00050 

00051 no 

00052 90 
c 

00053 

00054 

00055 100 
00055 
00057 

C 

00068 

00059 

00070 

00071 


IF(IDEN„ EQ. 21) READ(IPFIN) IDEN, MX, MY, ( (G (I , J) ,0=1, MY) ,1=1, NX) 
IF(IDSN„ EQ. 55) READ(IPFIN) IDEM, MX, (SVALfl ) 1=1 ,;«> ' ’ 

IF(IC5N.E0. 57) READ(IPFIN) IDEN,NX,NY, ( (EVEC(t,J) , J«K my) i 0 i my) 

cwTrSi ”’ 591 mW(UVIN > «*»,«,, w ; Jicodlji 

NXr=NXS+NXe 

IDEN*LAf>TID 

GET LEFT EIGENVALUES FROM EVSC 
RIGHT EIGENVALUES - ROWS OF EVEC 


LEFT EIGENVALUES - COLtMNS FOR W21I 
DO 40 1=1, NXT 
W2ii(i,i)-i.a 

rr/trnn^f i?^'^-5P W3,W21I,> ® Cr '® 1M3# IPVT ' C ' I225,WA,IERR) 
It (lt.RR.LQ. 0; GO TO bO 

WRITE (TOUT, 50) 

FCR^AT (5X , * ERROR INVERTING EIGENVECTOR MATRIX*) 

GO TO 1000 
CONTINUE 

CALCULATE SENSITIVITIES 
DO 150 1=1, NXr 
A IM=A IMAG (EV\L ( I ) ) 

IF(AIM) 150,70,90 

EERO OUr COMPLEX ROUND-OFF ERROR 
CONTINUE 
DO 30 J=1,NXT 

W21I (3, 1 ) =CMPLX (REAL (W21I (.3,1)) ,£).) 

CONTINUE 

NORMALIZED SENSITIVITY W.R.T. F 
DO 100 J=i,NXT 
DO 100 K=i,.NXT 

S I r I {. J , K) =W2i I (J , I ) *EVEC ( I , K) * F( J , !<) /EVAL ( I ) 

IDSN=inEM+i 

WRITE (IPFCUT) IDEM, W1’,NXT, ( (Sill (II, JJ) ,JJ«l,?j)cr> ,11=1. NXT) 
NORMALIZED SENSITIVITY W.R.T. G ' ' 1 

DO 120 .7=1, NX? 

DO 120 K=1,NU 
DD*0. 

DO 110 L=i,NXT 
00072 110 DD=DD+W2i I (J, I ) *EVEC ( I , L) *CG (K, L) 

0J073 a 20 Sill (3,;<)=DD*G(3,K)/EVAL{I) 

00074 IDEN-IDEN+1 

00075 WRITE (IPFCUT) IDEN,NXT,NU, ( (Silt (II, JJ) ,JJ=1,MJ) ,11=1, NXT) 

C NORMALIZED SENSITIVITY W.R.T. K 

00076 DO 140 .J NU 

00077 DO 140 K=>1,. NXT 

00078 DD*0, 

00079 ^ IX) 130 L=1,NXT 

00030 130 DD^OO+G (L,J)*W21I (L, I)*EVEC(I,K) 

00091 140 Sin(J,K)=DD*CG{J,K)/EVAL(I) 

00052 IDEN-IDEN+1 

SSJ is, 

00085 DO 160 I=IDBN+1, 130 

00085160 WRITE (IPFOUr) I, 11 , 11 , CO 
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C TOE END 

^37 UW STOP 
&M80 END 
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00058IF 


Alv) 

AIMAG 

ARRAY 

.ASSIGN 

C 

CG 

Ci'IPLX 

C0 

DD 

EVAL 

EVEC 

F 

frame 

G 

I 


IARRAY 

IDEN 


00057= 

00057 

0000601 

00019CL 

00005CX 

00002DI 

00j5i 

000I4CX 
J0005CX 
00003CX 
00003CX 
0000201 
00 00 ID I 
00 0O 2D I 
000 I CRD 
00047DO 
00000 
0000601 
00031RD 
00039RD 


O000OEQ 
.M023CL 
0001 IDA 
0.O010DA 

0001 5DA 

00070= 

0O0i IDA 

E00I1DA 

00010DA 

00018RD 

00010DA 

00022RD 

00040 

0003i 

0000OEQ 

000 321 F 

0004 0IF 


0O028AG . 

0004 SAG 
0004 3RD 00072 


000SSWR 
00072= 
00 03 3RD 
0004 1RD 
00035RD 
00019AG 
00037RD 
0002GRD 
0005ODO 
0000 5D0 
00 02 Pag 
000 3 3RD 
0004 IRD 


00073 

00057 

00049AG 

00065 

•00022RD 

00073 

00035RD 

00057 

0003S.VR 

00034IF 

00042IF 


00031 



00078= 

00030= 

00031 

00065 

00073 

000£i 

00065 

00072 

00080 

00023AG 



00080 



00037RD 

0O039RD 

00041! 

00061 

00065 

00072 



00074= 

00075WR 

00002= 00J23VR 

IERR 

00049AG 

000 501 F 


II 

00067, -/R 

00075*, 'R 

0003 3wn 

I IN 

0001 2D A 

00013RD 

00022RD 00026RD 

I OUT 

0001 2D A 

000ia*/R 

0O02OWR 00024'AR 

IPFIN 

00012DA 

00-01 SAG 

0-0 028 AG 0002S RW 


00039RD 

0004 1RD 0004 3RD 

IPFOUT 

00 01 2D A 

00023AG 

00028AG 00067KR 

ipvt 

00007DI 

00009DA 

00 04 SAG 

ii 

0001 5DA 

000O6WR 


1225 

00013DA 

00 04 SAG 


1900 

00 .JI Ida 

0002OAC 


J 

00035RD 

00/03 7RD 

0004 IRD 0004 3RD 


00063QO 

00072 

00073 0007600 

*JJ 

00067.YR 

00075WR 00033WR 

K 

000 3- IDO 

00054DO 

00065 0006SDO 


00031 



L 

0007100 

00072 

00079DO 00080 

LA5JTID 

00013DA 

0002CAG 

00-J30DO 00046 

LECT2C 

00049CL 



MDIM3 

0001 3DA 

00 04 SAG 


MU 

00 03 3RD 

0U 06900 

00075, */R 00076DO 

M 

000 3 3RD 



MX 

00035RD 

00037RD 

000 3 SR D 00041RD 

NXC- 

0003 3RD 

00045 


MXS 

00033RD 

00045 


nxt 

00045= 

0004 7D0 

00 04 SAG 00056DO 


0006SDC 

00071DO 

00075VR 0007700 

MY 

00035RD 00037RD 

0004 IRD 0004 3RD 

MYO 

te? if) 3 3RD 



NYS 

k^>333RD 



M2 

^v)33RD 



REAL 

mWI 



RE**?R 

M22CL 




00035RD 
0004 3RD 
000S5DO 


00036IF 00037RD 0003OIF 
00046= 00066= 000S7.VR 


0005ZVR 

0003IRD 00 03 3RD 00035RD 00037RD 
00075WR 00033WR 00086.'/R 


00060DO 00061 00063DO 00065 

00030 00031 

00072 00073 00077DO 000S0 


00033'a'R 
000^ 3RD 

00060DO 

00079DO 


00063DO 00064DO 00067/R 
0008T.M 
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mciNAr: Mok ts 
ok rooii q;;,uity 


RT-11 


Sill 

TTLNEW 

'a'A 

W21I 


10 

100 

1000 

110 

12 

120 

130 

14 

140 

153 

160 

20 

30 

35 

40 

50 

60 

70 

80 

90 


INDEX Vi’3 
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04004CX 00.01 IDA 00065“ 00067WR 
0030 ID I 00 02 5RD 00 02 SAG 
00005CX 00008EQ 0001 IDA 00049AG 
v ij 00 5CX 00008EQ 0001 IDA 00048= 
00000 

.0001'MR 00017* 

00053DO 00J54DO 00065* 

00O54GT 00037* 

00071DO 00072* 

00020WR 00021* 

00O53DO 00069DO 00073* 

00079.00 00000* 

00024'VR 00025* 


00073 = 


<3 00 4 SAG 


00075VR 00081= 


00051 = 00055 


000O3WR 


00072 


0007600 0007700 00081* 

00058DO 00;) 58 IF 00034* 

04035DO 00005* 

00 01 3RD 03022RD 0002SRD 00027* 
00033DO 00044* 

00031RD 000/15* 

J004 TOO 00048* 

000 57.*( K 00053* 

00051GT 00055* 

000 58 IF 00059* 

J.0060DO 00361* 

00 058 IF F0052* 
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C BLOCK 7 - CONTROLLER 

C 'nits ROUTINE SETS U? 1US CONTROLLER EQUATIONS USING 

C THE FILTER AND REGULATOR SOLUTIONS COMPUTED 

C „ PREVIOUSLY. 

MMl DIMENSION FMAME (4 ) ,TTLNEIV(5) 

C INPUT MATO IX ARRAYS 

00002 DIM FUSION F(15, 15) ,G (15, 5) ,GM(if>, 15) ,11(15, 15) ,TZ (15, 15) , 

+ XK(15,i5),C(5,15),TI(15,15),F3;:(i5,i5),F2i(i5,i5), 

+ F22 (15, 15) ,G2 (15,5) ,112(15, 15) ,XK2 (15, IS) 

C OUTPUT MATRIX ARRAYS 

»WM3 DIMENSION AF(15, 15) ,BF(15, 15) ,CF(5, 15) ,DF(5, 15) 

C WORKING ARRAYS 

00004 DIMENSION DU4MY(15, 15) ,DUMMY2 (15, 15) ,ARRAY(900) ,IARRAY(900) , 

+ A (30, 30) 

C ECU .TVA LENC ES 

00005 EQUIVALENCE (A, ARRAY, IARRAY,XK) , (A(i-5,P) ,TI) , (A(i, IS) ,TZ) , 

+ (A (15, 23) ,EUM.MY2, H2) , (AF,FI2) , (BF,F21 ) , (CF,G2) , 

+ (DUMMY, F22),(XK2,CF) 

C FATA 

00.305 DATA IIM, IOlfT, IPFIN, IPFOUT /5, 7,20, 21/ 

DATA I900*LASTID, II, RO /900, 115, 1,1?./ 

C READ INPUT AND OUTPUT PROBLEM FILS NAMES AND TITLE 

00003 WRITE (IOUT, 10) 

00009 10 FORMAT (20X , ' CONTROLLER - BLOCK 7',/,2X, 

+ 'INPUT PROBLEM FILE NAME ? ',$) 

00010 READ (I IN, 20) (FLAME (I) ,1=1,4) 

00011 CALL ASSIGN (IPFIN, FRAME) 

00012 WRITE (IOUT, 12) 

00013 12 FORMAT (2X, 'OUTPUT PROBLEM FILE NAME ? ' ,$) 

00P14 READ (I IN, 2.3 ) ( FMAME ( I ) , 1=1 , 4 ) 

00015 CAI.L ASSIGN (IPFOUT, FRAME) 

00016 WRITE (IOUT, 14) 

00017 14 FORM AT (2X,‘ PROBLEM TITLE (20 CHARS) : ',$) 

00018 READ(IIN,2i3) (TTLNEW(I ) , 1=1, 5) 
t3t>i3i9 23 FORMAT (5A4) 


C READ AND WRITE PROBLEM FILE, COMPOSING TITLE 

00020 CALL REWR (IPFIN, IPFOUT, TTLMLW, I90O, LAST ID, ARRAY, IARRAY) 

00021 REWIND IPFIN 

C GET THE FOLLOWING FROM THE PROBLEM FILE: 

C DIMENSIONS IDEN»2 

C TZ MATRIX IDEN®35 

C TI MATRIX IOEN-37 

C F .MATRIX IDEN«30 ,39, 40 ,41 

C ' G MATRIX IDEN=42, 43 

C 1! .MATRIX IDEN=47,43 

C DIMENS IONS IDEH“54 

r tt MATO ty IDEN=59,FU 

IDEM=70 


00022 

00023 

00024 

00026 

00023 

00030 


TZ MATRIX 
TI MATRIX 
F .MATRIX 
' G MATRIX 
1! .MA'TOIX 
DIMENSIONS 
K iMATOIX 
C MATRIX 
DO 3J K=I,20J 
READ ( I PF IN , END=4 0 ) IDEN 

I F ( I DEN . EQ. 1 ) READ ( I PF IN ) IDEN, NXS , NXC , MU , M«f , NZ , NYS , NYO 
IF (IDEN. EQ. 34 ) READ (IPFIN) IDEN, NX, NY, ( (TZ (I,J) ,J=i,MY) ,1=1, NX) 
IF (IDEN. EQ, 35) READ (IPFIN) IDEN, NX, MY, ( (TI (I,J) ,.7*1 , MY) , 1=1, NX) 
IF(IDEN.EQ. 37) READ (IPFIN) IDEN, NX, NY, ( (F(I,J) ,J*i,NY) ,1*1, NX) 
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33332 
33334 
33036 
033 39 

33343 
33342 

33344 
031246 
00043 
00350 

00052 

00054 30 

00055 40 
C 

00056 

00053 
00060 

00051 

00052 

00053 

00054 50 
00065 
00065 
00067 
000.63 55 
000-59 60 

00070 

00071 

00072 

00073 70 

00074 

00075 

00076 

00077 75 
00073 
00030 
00081 

00032 

00033 93 

00034 35 
00085 
0003-5 
00087 
00339 
00091 
00392 

00 093 90 
C 

00094 95 

00095 
00095 
00097 

00099 

00100 100 


IF ( IDEM, EQ. 29 ) READ (IPFIN ) 
IF ( IDEM. EQ. 39) READ (IPFIN) 
I F ( I DEN . EQ. 40) READ ( I PF IN ) 
. IF ( IDEM. EQ. 41 ) READ (IPFIN) 
IF(IDEM.EQ. 42) READ (IPFIN) 
IF(IDEM.EQ. 46) READ (IPFIN) 
IF ( IDEM . EQ. 47 ) READ ( I PF IN ) 
IF ( I DEN. EQ. 53 ) READ (IPFIN) 
IF ( IDEM. EQ. 53 ) READ (IPFIN ) 
I F ( IDEM . EQ. 59 ) READ ( I PF IN ) 
IF (IDEM. EQ. G9) READ (IPFIN) 
CONTINUE 
REWIND IPFIN 

COMPOSE F,G,I! AMD K 
IF(MiP.EQ.O) GO TO 50 
IF (M2. EQ. 0) GO TO 35 
DO SO 1=1,. NIP 
DO 50 J=I,M2 
JJ=a-HiP 
F(I,JJ)=FI2(I,J) 
F(JJ,I)=F21(J,I) 

DO 55 1=1, NIP 
DO 55 J=i , M 2 
JJ=J-Hl 

XK (I,JJ)=XK2 (I,J) 

DO 70 1=1, M2 
II=I-H1P 
DO 70 J=1,M2 
jj=ihip 

F(II,JJ)=F22(I,J) 

DO 75 1=1, M2 
1 1=1 HiP 
DO 75 J=i,MI 
G (II,J)<52(I,J) 

IF (Ml. EQ. 0) GO TO 85 
DO 33 1=1, Mi 
DO 80 J=1,M2 
JJ-7H1P 
H (I ,JJ)=H2 (I , J) 

CONTINUE 

nw=nys 

N)Cr=NXC+NXS 
IF(MlP.EQ.O) GO TO 440 
IF (MCX. NE . 1. OR. NCY. MI. 1) 

DO 90 1=1, NU 
DO 90 J=1,NXT 
C(I,J)=0. 

COMPUTE AF 
DO 110 1=1, NIP 
DO 110 ,7=1, MiP 
DUM=0. 

IF(Mi.EQ.O) GO TO 110 
DO 100 K=i,Ml 
DUM=DUM+XK(I,K)*H (K,J) 


13-APR-79 02s 47 : 44 PAGE 00002 

IDEM, NX, NY , ( ( FI 2 (I, J) ,0=1 , NY ) , 1=1 , NX) 

IDEM, NX, NY, ( (F21 (I, J) ,J=i,NY) ,1=1, NX) 

I DEN , NX, NY , ( ( F22 ( I , J ) , J=1 , NY ) , 1=1 , NX) 
IDEM, NX, NY, ( (G (I,J) ,J=i,NY) ,1=1, NX) 

IDEM, MX, NY, ( (G2 (I, J) ,J=i,NY) ,1=1, NX) 

IDEN, NX,NY, ( (H (I,J) ,J=i,NY) ,1=1, NX) 
IDEM, NX, MY, ( ('A2 (I , J) , J=i , NY ) , 1=1 , NX) 

I DSN , M 1 , M 1 P , «1 2 , M 2P 

IDEM, NX, NY, ( (XK (I , J) ,J=1,NY) ,I=1,NX) 
IDEM, NX, MY, ( (XK2 (I ,J) ,J=1,NY) ,1=1, NX) 
IDEM, XX, NCY, ( (C( I , J) , J=1 , NCY) , 1=1 , MCX) 


30 TO 95 


(ril-KI2H'2i-Kii*Hj.i-(Oi~K12*32)*C*TI) 
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83131 110 AF(I ,J)=F (I, J)-DUM 
00102 IF(M2.EQ.3) GO TO 233 

33134 115 DO 130 1=1, MIP 

00105 DO 138 J=1,M1P 

33136 DU <1=3. 

80137 DC 123 K=1,M2 

33135 KK=KH1 

33139 ;<f=k+mip 

Milo 123 DUvi=DUvi+XK(I,KK)*F(!<F,J) 

33111 133 AF(I,J)=AF(I,J)-DUM 

33112 IF (MU. EQ. 3) GO TO 233 

88114 DO 153 1=1, MIP 

33115 DO 153 J=i,NU 

33116 DU <1=3. 

3 3117 DO 143 K=1,M2 

33118 XK=X-Mi 

83119 KG=K+MiP 

33123 1-13 DUM=OU»'+XK (I ,KK) *G (KG, J) 

33121 153 DUMMY (1[,J)=G (I,J)-DUM 

33122 DO 173 1=1, MiP 

33123 DO 173 J=1,NJCT 

33124 DUM=3. 

33125 DO 163 K=i,NU 

33126 163 DUM=0UM4DUMMY(I,K)*C(K,J) 

33127 173 DU:>1my2(I,J)=DUM 

33128 DO 193 1=1, MiP 

. 33129 DO 193 J=i,MiP 

33133 DUM=3. 

33131 DO 183 K«l,NXr 

33132 183 DUM=DUM-*OUMMY2 (I ,K) *TI (K, J) 

33133 193 AF(I,J)=AF(I,J)-DUM 

33134 233 CONTINUE 

C COMPUTE BF = (Kii <Fii~X12*F2i-X 

, . c -Kii*Hl2-(3i- 

»/3i35 IF (Ml. EQ. 3) GO TO 215 

33137 DO 213 1=1, MiP 

33138 DO 213 J=1,,M1 

33139 213 BF ( I ,J)=X!< (I , J) 

33143 IF (M2. EQ. 3) GO TO 383 

33142 215 DO 243 1=1, MIP 
83143 DO 243 J=i,MiP 

331*4 DUM =3. 

83145 DO 223 !<=i,M2 

33146 !<K=K-hMl 

03147 XF=K+MlP 

33148 220 DUM =OU 4 +XK ( I , KK ) * F ( K F , J ) 

8314 9 DUMMY ( I , J ) =F ( I , J ) -DUM 

33153 DUM =3. 

33151 IF(Mi. EO. 3) GO TO 240 

33153 DO 233 !<=l,Ml 

33154 233 DUM=DUM+XK(I,K)*H(K,J) 

33155 243 DUMMY ( I , J ) =DUMM Y (I , J ) -DUM 

33156 DO 263 1=1, MiP 

33157 DO 263 J=i,M2 
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ORIGINAL PAGE IS 
OF POOR QUALITY 


1 1 *W il ) *Ki2+F 12— K i 2*F22 
•K i 2*G 2) *C*T I *I< 1 2 )*TZ 
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MI 53 

JJ-J+Ml 

Ml 59 

JF<f+Mi? 

00162 

DU:4=J. 

Ml 61 

DO 250 X =1/4 IP 

Ml 62 252 

DUM=OUM+DUM'4Y ( I , K)*XK (K,JJ ) 

Mi 63 260 

BF ( I , JJ ) =F ( I , JF ) +D'J >1 

2015-1 

DO 290 1=1, MlP 

00165 

DO 290 J=i/42 

20166 

JJ=\7+Mi 

20167 

JF=J+MiP 

00153 

DU:'1=0. 

20169 

DO 270 K=i,M2 

20172 

XK=K+Mi 

22171 

KF=X-H4lP 

20172 270 

DUM=D!J4+XK (I,KK)*F(KF, JF) 

00173 

BF ( I , J.J ) =BF ( I , JJ ) -DUM 

0017-1 

DUM =2. 

20175 

IF (Mi. EQ. 2) GO TO 290 

00177 

DO 282 X=i,Mi 

00173 280 

DUM=OU 4+XX (I,K)*;i (X, JF) 

02179 290 

BF ( I , JJ ) =BF ( I , JJ ) -DUM 

20182 

IF (MU. EC. 2) GO TO 300 

20182 

DO 310 1=1, MlP 

20183 

DO 310 J=i,NU 

2210-1 

DU 4=2. 

20185 

DO 322.X=1,M2 

20185 

XK=K+Mi 

02187 

xg=:<+mip 

00133 300 

OUM=Di JM+XK ( I , KK ) *G (KG , J ) 

20189 310 

DUMMY (I , J)=G (I , J)-DU'4 

20190 

DO 330 1=1, MlP 

00191 

DO 330 J=i,tOT 

20192 

DUM =2. 

20193 

DO 322 K=i,NU 

2019-1 322 

DUM=DU 4+DUMMY ( I , K) *C (K , J) 

22195 330 

DU4MY2 (I ,J)=DUM 

20196 

DO 350 1=1, MiP 

00197 

DO •'30 J=1,MXT 

00193 

DU 4=0. 

20199 

DO 342 K=1,N/CT 

00200 3-10 

DUM=CU'4-H3ir4'4Y2 (I,K)*TI (K,J) 

00221 350 

DUMMY ( I , J ) =DUM 

20202 

DO 355 1=1, NXT 

00223 

DO 355 J =1 , NZ 

22224 355 

DUMMY2 (I,J)=0. 

22225 

DO 360 1=1, MlP 

00226 

DO 360 J=I,M2 

20227 

JJ=J +MI 

20223 350 

DUMMY2(I,JJ)=XK(I,JJ) 

20209 

DO 355 1=1, M2 

20210 

1 1=1 +M1P 

22211 

1 11=1+141 

00212 365 

DUMMY2 (II, III) =1. 

00213 

DO 375 1=1, MiP 
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00214 


DO 375 J®!, NZ 

00215 


DUM=0. 

0O21G 


DO 370 K=i , MXT 

00217 

370 

DUM=D'J 4+DU4MY (I ,K) *DU4MY2 (K, J) 

00218 

375 

BF ( I ,.7 ) =BF ( I , 3 ) -DUM 

00219 

380 

DO 400 1=1, 4 IP 

00220 


DO 400 J=i,NZ ' 

00221 


DU'4=0 . 

00222 


DO 390 X=l,. MZ 

00223 

390 

DUM=0U4+BF ( I , K) *TZ (K , J ) 

00224 

400 

DU4MY(I,J)=DUM 

00225 


DO 410 1=1, MiP 

00225 


DO 410 J=i,NZ 

00227 

410 

BF(I,J)=DUMMY (I,J) 


C 

COMPUTE CF = -C*TI 

00228 


IF(MU.EQ.0) GO TO 510 

00230 


DO 43.5 1=1, NU 

00231 


DO 430 .7=1, MiP 

00232 


DUM=0. 

00233 


DO 420 K=1 ,NXT 

00234 

•420 

DU'1=OU4+C(I,K)*TI (K, J) 

00235 

430 

CF(I,J)=-DU4 


C 

COMPUTE DF = -C*TI*K12*TZ 

00235 

440 

DO 450 1=1, NU 

00237 


DO 450 J=i,NXT 

00233 


DU4=0. 

00239 


DO 450 K=1 , NXT 

00240 

450 

DU>1=DU4+C ( I , K) *TI (K , J) 

00241 

450 

DUMMY ( I , J ) =-DU4 

00242 


DO 470 1=1, NXT 

00243 


DO 470 J=i,MZ 

00244 

470 

DUmmy2(I,j)=0. 

00245 


IF(I"2.EQ. 0) GO TO 485 

00247 


IF (MiP. EQ. 0) GO TO 432 

00249 


DO 430 1=1, MIP 

00250 


DO 430,J=i,M2 

'00251 


J.J<ml 

00252 

480 

DU-KY2 ( I , JJ ) =XK (I,JJ) 

00253 

482 

DO 494 1=1, M2 

00254 


II=I+M1P 

00255 


IJ=I+4i 

00255 

434 

DU4MY2 (II, IJ)=i. 

00257 

485 

DO 487 1=1, NU 

00253 


DO 437 J =1 , NZ 

00259 


DU >1=0. 

00250 


DO 485 ’<=i,NXT 

00251 

485 

DU«1=DU 4-K7UMMY (I , K) *DU >1MY2 (K , J ) 

00252 

487 

DF(I,J)=DUM 

00253 


DO 495 1=1, NU 

002-54 


DO 495 .7=1, NZ 

00255 


DUM=0. 

00255 


DO 490 K=i,NZ 

00257 

490 

. DU.M=DU 1+OF (I ,K) *TZ (K,J) 

00253 

495 

DUMMY (I , J ) =DU 4 
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00269 DO 500 1=1, IM 

02270 DO 500 J=i,NZ 

00271 500 DF(I,J)=DUMMY(I,J) 

C WRITE AF,BF,CF, AND DP 

00272 510 IDEM=LASTIDt1 

00273 IF(MiP.EO.0) WRITE (IPFOUT) IDEM, II, II, P.0 

00275 IF(M1P.NE.0) '/'RITE (IPFOUT) 

+ IDEN,MiP,MiP, ((AF(I,J) ,J=i,MlP) ,I=1,M1P) 

00277 IDEM=IDEN+1 

00278 IF(MIP. EQ. 0) WRITE (IPFOUT) IDEM, Tl, 11, R0 

002C0 IF(MiP,NE.0) WRITE (IPFOUT) 

+ IDEN,MiP,N7., ( (BF(I,J) ,J=i,MZ) , I-x.MlP) 

00282 IDEN=IDEN+1 

00283 IF (M1P. EQ. 0. CR. NU. EQ. 0) WRITE (IPFOUT/ J.DEN.Ti, Ii,R0 

00285 IF {MiP.ME.-0.AND.NU.NE. 0) WRITE (IPFOUT) 

+ IDEM,NU,MiP, ( (Ci?(I»J) ,J=1,M1P) ,I=1,-MJ) 

00287 ID2N=IDEN+i 

00288 T F(NU.EQ. 0) WRITE (IPFOUT) IDEM, 11, II, P.0 

00290 iF(NU.NE.0) WRITE (IPFOUT) 

+ -DEM, WU , M2 , ( (DF ( I , J ) , J=l , NZ ) , 1=1 , NU ) 

00292 LASTID--IDEN 

C READ THE FOLLOWING FRCM THE PROBLEM FILE: 

C F MATRIX IDEM=24 

C G MATRIX IDEN=25 

C CM .MATRIX IDEN=28 

: C H MATRIX IDEN=27 

00293 DO 520 K=l,200 

00294 READ(IPFIM,FMLi=530) IDEM 

00 295 IF(IDSN. EQ. 23) EEAD(IPFIN) IDEM, NX, MY, ( (F(I,J) ,J=i,NY) ,1=1, MX) 

00297 IF(IDEM.EQ. 24) READ(IPFIM) IDEM, NX, NY, ( (G (I,J) ,J=1,NY) ,1=1, MX) 

00299 IF (IDEM. EQ. 25) READ(IPFITI) IDEM, MX, N7, ( (34(1, J) ,J=i,NY) ,1=1, MX) 

00301 IF (IDEM. EQ. 26 ) READ(IPFIN) IDEM, NX, NY, ( (11*1, J) ,J=i,NY) ,1=1, NX) 

00303 520 CONTINUE 
00304530 CALL CLOSE (IPFIN) 

00305 IDEN=LASTID 

C (F4G*DF*H G*CF) 

C CO’PUTE A = ( ' ) 

C ( BF*H AF ) 


00305 


DO 

535 

L=i,NXT+;viiP 

00307 


DO 

535 

j*i,Nxr+MiP 

00303 

535 

A(I 

rJ)‘ 


00309 


DO 

540 

i=i,nxt 

00310 


DO 

54-0 

j -1 , !'ixrr 

00311 

540 

A(I 

,J)’ 

S F(I,J) 

00312 


IF(MU. J 

EQ.tf) go to 

00314 


DO 

55£ 

I =i , MOT 

00315 


DO 

5GJ 

J=I , NZ 

00315 


DUM 



00317 


DO 

550 

K~I f NU 


00318 550 DUM=OUM4G(I,K)*UF(K,J) 

00319 550 DUMM Y ( I , J ) =DUM 

00320 DO 580 1=1, NOT 

00321 DO 580 J =1 , NXT 

00322 DUM=0. 
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00323 

00324 570 

00325 580 
00325 590 
00327 

00329 

00330 

00331 

00332 

00333 

00334 500 

00335 510 
00335 

00338 

00339 

00340 

00341 

00342 

00343 520 

00344 530 

00345 540 
00345 

00347 

00348 

00349 550 

00350 550 

00351 

00352 

00353 

00354 700 


DO 570 K=i , MZ 
DU'4=DUM+DU'*V4Y (I,K)*H (X,J) 

A(I,J)=A(t,J)+DU4 

CONTINUE 

IF(!*IP.EQ.0) GO TO 550 
DO 510 I=i,MiP 
II=HMXT 
DO 510 J=1,NXT 
DU. 4=0. 

DO 500 K=i,MZ 
DUM=OU : 4-H3F ( I , K ) *H (K , J ) 

A(II,J)=DU’4 

IF (NU. EQ. 0) GO TO 540 

DO 530 1=1, NXT 

DO 530 J=i,MiP 

JJ=J+NXT 

DUM=3. 

DO 520 K=1,NU 
DU4=DU4+G (I,K)*CF(K,J) 

A(I,J.J)=DUM 
DO 550 I=1,M1P 
II=I+NXT 
DO 550 .7 =1 , M IP 
JJ=7+NXI' 

A(II,JJ)=AF(I,J) 

IDEM=TDEN+1 
NTOT=N XT+'-l IP 

WRTTE (IPFC'UT) IDEN.OTOT, WTOT, ( (A(I , J) , J=1 ,tfrOT) , 1*1 , MTOT) 
DO 700 I=IDEN+I, 130 
WRITE (IPFOUT) I , II, II, R0 
THE END 


00355 STOP 


00355 END 
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A 
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00P04DI 
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/J-SIGM 
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,’,3.31 SCL 



BP 

000*3301 

000PSEQ ,3.3139 s * 

M163® 


,V227« 

,3J2f3lV'R 

00334 


C 

. AM, 3 2D I 

.3*3 .3 5 3RD 

,30093“ 

0312* 

CF 

0000..3Dt 

0J005EQ 

>30235“ 

M26&VR 

CLOSE 

00304CL 




DF 

0000301 

0OO.35EQ 

22252* 

.)*m7 

DIM 

00095“ 

.131,3,-5“ 

,3,3101 

JdltK- 


00121 

00124® 

02126“ 

*WJ27 


iWi^« 

.3.3169 

0,3150“ 

Ml 54* 


30 : ra- 

.3*3172“ 

02173 

M174« 


.3,3120 

, 3*1192® 

,30194“ 

M195 


00217® 
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00221® 

M223« 
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00241 

M25?« 
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M319 
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DU’*MY 

0*30*1401 

0O.305EQ 

,30121a 



,3.3194 
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00217 

M22^» 


,3.3271 
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0*3324 


IXM4Y2 

0000401 

,TJ*3v35EO 

,3,3127“ 

M132 


,3.3212® 

,30217 

0.3244“ 

M252* 

F 

000. 3 2D I 

OvVRiRD 

0,3053= 

»13ir>4® 


,1.31-10 

,3.3163 

,3*3172 

M295RD 

FXAME 

,’*3.3 2 ID I 

,3.3 ,31. 3RD 

2*3 *3 11 AG 


F12 

00002)1 

ooooseq 

00,33 3RD 

>M*Ki3 

F21 

,32*3.3201 

00005SQ 

0,30 3 5RD 

t3M54 

F22 

.3,32*3201 

00005EQ 
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i%v.)73 

G 

.’.3,3.3201 

0003PRD 

,3*3.377“ 

OJ12*5 


'»? ' r. 

> t *3 A *5 




Ii/.UO 

w « „> *.? J 



G4 

0030201 

JJ3.VRD 



G? 

■3,3*3.3201 

iM.'JSEQ 

,3,504 iRD 

WJ77 

11 

33 I *<?*\ T 
<.t •/ ». / ¥ >J I 

JJ334 

V».V,3KD 

*30,353“ 


U2 

iV.\J2Dl 

MW5SQ 

20245RD 

iVWI 

I 

vjjukd 


,50 ’ICRD 

tM27RD 


■W3tsd 

A\T39RO- 

,3004 1!, D 

&JA3M 


AVIJiy) 

.MW3 

20064 

WJ55DO 


tV.WOO 

W75 

.3,3,377 

mvvdq 



IV 1 4 

4 . ia 

2.31,3407 

»V iiJ 


■.Vi-ZffiO 

20125 

02127 

♦V12EX? 



2,3140 

*3.3149 

Mi 54 


^.UiTO 

2*3172 

00173 




.30194 

0.3195 



*:.!2J5DO 

*30205 

*3.320930 

w?;«i 


JJ21EX) 

20223 

00224 

M225DO 


»)^3iCO 

2.024*3 

02241 

tM242DO 


«254 

0,3255 

00257DO 

A* 


iV^SOO 

2,3271 

0,327-7%'R 

«23I'\R 


*V.3JJRD 

00302RD 

2(5? 06a.) 

k v3«:n 


JJ319 

0032,31X3 

22324 

M325 


00325® 

00335® 

00344» 

.30349* 

00133® 

J0275WR 

00349 


,30i73« 

00179* 

00216® 

0.3223 

00194 

0,3234 

•00240 


0*3343 




00271** 

.37291'.''R 

00319 


00110® 

tVfi A i 

00116“ 

0.3120* 

00130® 

Ml 32* 

0,3133 

00146“ 

0.3155 

mim* 

00162* 

0*3163 

00170® 

MI 79 

00184* 

OOaSR® 

0,3190® 

M2M* 

00201 

00215® 

00224 

M232* 

00234® 

00235 

0*3251® 

M2fi2 

0,0265® 

*3.3257“ 

*30322“ 

M324« 

00325 

P.3332® 

0,3344 

00149® 

MLSS« 

00162 

.30139“ 

0*3227 

JiJ24;» 

00261 

00262“ 

*195® 

M2M 

*30204* 

00209* 

t „255® 
00073® 

JJ251 

JJiiJi 

C»Ui u 

00143 


0,3311 
0001 SAC 


ORIGINAL' PAGE IS 
OF POOR QUALITY 


Mi2i 

00163 

M189 

00298RD 

Mi 54 

00173 

M3J23D 

0.3334 

i\W2?RD 

0003 IRD 


00035RD 

*MtM5RO 

0004PRD 

mjsird 

00.353RD 


00*15900 


00073 

.WE3 

00091DG 

•WJ93 

00.394 DO 

JO A A 1 

001140) 

,v; 

03121 

.VI 3? 

0013.3 

JJ137IX) 

00139 

JO 15? 

O0156D9 


00163 

■mi;9 

0016200 


00129 

‘03200 

00201 

*?J2u 2D0 

0.3204 

3021; 

0021390 

.V2I7 

00216 

00227 

0O23PDO 

A5234 

002 3S 

0M44 

..3.324 vtX) 

.V252 

00253DO 

00272 

.3025 703 


00253 

00?r*\R 

0>3291*.'jR 

»V2?^D 

00292RD 

*VMTOO 

0**311 

W314DO 

00318 • 

0032900 

00330 


00 3 3 '.500 


asst- *»*• ■'***■*■' 


» ' 
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33343 

23344 

M245DQ 

30345 

33349 

00J5:>'.'R .50 3 5300 

00354SR 

I ARRAY 

03304DI 

00 20 CEO 00023,\G 






IDEM 

33023RD 

23324 IF 

23325110 23 3 2 61 F 

0302790 

20028TF 

30029RD 

0.50301 F 


tY33lRD 

23 3321 F 

233 3 3RD 

200 34 IF 

0003 CUD 

32 036J F 

30037RD 

.500 3 81 F 


.'OOCCRF 

3334 21 F 

233 4 inn 

230421 F 

00043RD 

33 044 IF 

0004 59 D 

30346IF 


.\W7RD 30 14CIF 

23349RD 332531 F 

00051RD 

03352IF 

33353RD 

20272® 


002?4nr 

00276WR 

23277® 

00279WR 

33231MI 

03282» 

03284VR 

342R.5WR 


02287» 


23 2 91WR 

2.5292 

3029910 

33 2951 F 

3029 3RD 

30297IF 


00293R1> 

03299IF 

33333130 

303211F 

0333210 

03335* 

30353* 

33352.VR 


A1353TD 








It 

2*5370* 

33373 

3.5375® 

33377 

30210® 

30212 

.53254® 

30255 


0333.5* 

33335 

23346® 

33349 





m 

00211* 

23212 







JIN 

2000SDA 

2331 3RD 
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w 

00255* 

00256 







xotrp 

OO.JJGDA 
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33312-m 
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oroo^da 

22311 AG 
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00 2 33DO 
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0015100 

04152* 


2 o0 

00155DO 

0415700 

04153* 

270 

0014900 

00172* 


230 

2417700 

00173* 


250 

0415400 

0014500 

O0175GT 00179* 

30 

000 22DO 

00454* 


300 

4418500 

00138* 


310 

40132DO 

0013300 

04109* 

320 

00193DO 

00194* 


330 

■0019000 

0419100 

i30195* 

344 

0019900 

0024.!* 


350 

00 19 SIX) 

0019700 

002.31* 

355 

0020200 

04 2 4300 

00204* 

350 

0024500 

0420500 

00200* 

355 

0020900 

00212* 


370 

4021400 

0.3217* 


375 

0021300 

0021400 

.10210* 

330 

0v5141GT 

04 13 1ST 

00219* 

390 

•0022200 

40223* 


44 

00-02 3RD 

00.355* 


400 

0O219DO 

0422000 

00224* 

410 

0 4 2 2500 

04225DO 

04227* 

424 

00233DO 

00234* 


430 

40230DO 

00231DO 

00235* 

440 

04088GT 

00234* 


450 

042 3'. '00 

04240* 


450 

0023400 

00237DO 

00241* 

470 

0424200 

0 A '14300 

00244* 

4G0 

04 24 900 

0t '<25000 

00252* 

432 

0024001’ 

00253* 


494 

002S3OO 

0,!?.5S* 


435 

0024 5G? 

00257* 


435 

0425000 

00 :'41* 


437 

002.5700 

00;" 5800 

00252* 

494 

0025500 

04257* 


495 

0024300 

00244DO 

00259* 

50 

040 4000 

OOn'uDO 

0/0054* 

540 

0425900 

0027000 

00271* 

510 

04229GT 

00272* 


520 

0029300 

00343* 
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530 

00294RD 

■23334* 


535 

00305DO 

2333700 

23393* 

540 

00309DO 

2931200 

29311* 

55 

00055170 

33355DO 

22959* 

550 

9331700 

33318* 


550 

0031400 

29 3 15D0 

•99319* 

570 

0032300 

93324* 


530 

0J320DQ 

29321DO 

23325* 

590 

3931 3GT 

39325* 


59 

003570? 

292-59* 


500 

0333300 

39334* 


r.i a 

J3329D0 

23331DO 

39335* 

520 

33342DO 

99343* 


533 

92338DO 

39 339DO 

33344* 

540 

333373? 

39 1 '5* 


550 

0934500 

9334700 

93349* 

550 

33370GT 

99353* 


70 

3935900 

3237100 

33373* 

700 

.3935300 

23354* 


75 

3397400 

3397400 

29377* 

80 

9933300 

3333100 

33983* 

C5 

39959GT 

99379GT 

33234* 

90 

3339100 

39392D0 

23293* 

95 

392933T 

33394* 
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RT-i 


00001 

00002 

00003 

00004 


00005 

00006 

000*17 

00009 

00009 

00010 

> 3 * 3,311 

man 

00013 

00014 

00015 

00016 
*1*1017 
*1*1.318 

00019 

00020 


* 3 *; *121 
. 10*122 
.1*1*123 
.1.1.325 
*10*127 
00*129 
*10031 
00.133 
.5.1*135 
00.137 
*10039 
*30041 
0.1,143 


1 INDEX V*13 SOURCE LISTING 


10-APR-79 . 03s02.**12 PACE .10*101 


C 

C 

c 


c 


c 


c 


10 


12 


14 

2*1 

C 

c 

c 

r* ■ 

*/ 

r* 

u 

r» 

■* 

~v 


BLOCK 3 - CONTROLLER ANALYSIS 
THIS ROUTINE SETS UP THE TOFN FILE '10 ALLOW TOANSFER 
FUNCTION ANALYSIS OF 71 IS CONTROLLER 
DIMENSION FMAME (4), TITLE (15) 

INPUT MATRIX ARRAYS 
REAL MMJ (5 ) ,MN2(15) ,mnx?(15) 

* G (^-» 5) ,11(15,15) ,TI (15, 15.) ,XX (15,15) ,C(5,15) 
^DIMENSION F12 (15,15) ,F2i (15,15) ,F22 (15,15) ,G2(i 5,5) ,112(15,15) , 
r XK2(j,5,i5) 

WORKING SPACE 

REAL DUMMY (15,15) ,OJMMY2(15, 15) ,MN(20) 

ECU I VALENCE (F21, DUMMY) , (Fi2,DJMMY2) 

DATA 

DATA I IN, IOUr, TPFIN, ITRF.N /5, 7, 20, 21/ 

DATA Ai,A2,K0,IPLUS,Xi /J. , 0. , 0, •+•,!./ 

READ FILE NAMES AND TITLE 
WRITE (TOUT, 1*1) 

FORMAT (20X, 'CONTROLLER DEFINITION - BLOCK 8' ,/,2X, 

+ 'INPUT PROBLEM FILE NAME ? • ,$) 

READ (I IN, 20) (mv-IE(I) ,1=1,4 ) 

CALL ASSIGN (IPFIN,FNA4E) 

WRITE (IOUT, 12) 

FORMAT (2X, 'OUTPUT TRFN FILE NAME ? ',$) 

READ (I IN, 2J) (FMAME (I) ,1*1,4) 

CALL ASSIGN (ITRFW, FNAME) 

,,f RITE (IOUT, 14) 

FORMAT (2X, 'TRFN TITLE (50 Cl LARS) : ') 

READ ( I IN, 20 ) (TITLE (I ) , 1=1, 15) 

’FORMAT (15A4) 

READ THE FOLLOWING FROM THE PROBLEM FILE' 

DIMENSIONS IDEN-2 
U MNEMONICS IDEN=3 


7. MNEMONICS 
X .MNEMONICS 


IDEN-33 

IDEN*34 

IDEM*37 

IDEN=38,39,4J,4i 
IDEN»42,43 
IDEN=47, 48 
IDEU*54 
IDEK-59, 50 
IDEN=7U 


TI MATO IX 
F MATRIX 
G MATRIX 
H MATRIX 
DIMENSIONS 
K MATRIX 
C MATRIX 
DO 30 K =1,200 
RE/AD ( I PF TO , I'M 0=4 0 ) IDEM 

IF(IDEN.EO. 1) READ(IPFIN) I DEN, NXS , NXC , NU , MV, NX , ! IYS , MYO 
IF(IDEN.E0.2) READ(IPFIN) IDEM , NX, ( MMJ ( t ) , 1=1 , NX) 

IF(IDEN.EQ. 32) READ (IFF IN) IDEM, NX, (MNZ(I) , 1=1, MX) 

IF(IDSN.EQ. 33) READ (IFF TO) IDEM, NX, (*wr(I) ,1=1, NX) 

IF( IDEM, EQ. 37) READ(IPFTO) IDEM, NX, NY, ( (TI (I,J) ,J=1,MY) .1=1. NX) 
IFjIDW.B0.37) READ (IFF IN) IDEM,K«X, W ; ( <F(I, J) 

IF(IDEM.EQ.30) READ(IPFIN) IDEN,NX,NY, ((F12(I,J) , J=1 , NY ) , 1=1 , NX 
IF( IDEM. EQ. 39) READ(IPFTO) IDEM, NX NY, ( F21 I J J=I NY 1=1 NX 

ir(raw.EO.«) RWXIPPW) tD^wxlUil i >1 S k “ 

If (IDEN.EC.41) READ(IPFIM) IDEM, NX, NY, ( (G (I,J) ,J=i,NY) ,1=1, NX) 
IF (IDEM. EC. 42) READ (I PF IN) IDEM, NX, NY, ( (G2(I,J) ,J=i,NY) ,1=1, NX) 

136 
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00345 

23047 

0*3^49 

00051 

00053 

00055 

00057 33 

33353 43 

33359 

C 

33353 

33352 

23354 

33365 

30365 

33357 

33368 53 

33359 53 

30373 

20371 

03372 

33373 72 

33374 

33375 
23076 
20377 75 

03373 
03379 
203S3 
00381 
003P2 30 
00333 35 
33034 
030S6 

C 

n 

c 

MM3 

OW89 

£v^9i 
,:0J93 
M394 W 
*W9S 95 

<M*393 

*\^99 

J«3i£2 
MiM 
^U4 ;id 
3*51^5 
k) 31^7 


0 i) 


r wic,i:\ r ,\i: pack jtt 
QUALITY 


IF(IDEN.EQ.45) READ(IPFIN) IDEN,NX,NY, ( (II (I, J) ,J*1,NY) ,1=1, NX) 

IF(IDEM.EQ.47) READ(IPFIH) IDEM, NX, MY, ( (<I2(I,J) ,J=i,NY) ,1=1, NX) 

IF (IDEM, EQ, 53) READ (I PF IN) iDEN,Mi r MiP,M2,M2P 

IF ( IDEM. EQ. S3 ) READ(IPFIM) IDEM, NX, MY, ( (XX (I , J ) ,J=i,MY) , 1=1, MX) 

IF(IDEM.EQ. 59) READ(IPFIM) IDEM, MX, MY, ( (XX 2 (I,J) ,J=i,NY) ,1=1, NX) 

I F ( IDEM , EQ. 69 ) READ ( t PF IN ) IDSM,MX,NY, ( (C(I ,J) ,J=i,NY) ,1=1, NX) 

CONTINUE 

NXr=NXC*NXS 

CALL CLOSE (I PF IN) 

COMPOSE F,C, H AND XX MATRICES 
IF (MiP. EQ. 3) GO TO 50 
IF (M2. EQ. 0) GO TO 35 
DO 53 1=1, MIP 
DO 50 J=i,M2 
Jj*0+'41P 
F(I,JJ)~F12 (I,J) 

F(JJ, I)=F21 (J, I) 

DO 73 1=1, M2 
II=I+MlP 
DO 70 J =1,142 
JJ-JM1P 

F(II,JJ)*F22(I,J) 

DO 75 1=1, M2 
11=1 +-M IP 
DO 75 J =1 , MI ' 

G (II,J)=C2(I,J) 

DO S3 1=1, MiP 
DO 03 J=i,.M2 
JJ-J+Mi 

U (I,JI)=H2(I,3) 

XK(I,JJ)=XK2 (I , J) 

continue 

IF(M1P.EQ, 3.AND.NU.NE.2) GOTO 185 
IF(W1P» EQ. 3.AND.MJ. EQ. 3) GO TO 195 

(SI-FiI+Xi2*F2i+Kil*:iii 
'.'.'RITE AF = ( 

( C*TI 

DO 133 1=1, .v IP 
DO 133 J=l,MiP 
OUM=3. 

IP (Mi. EQ. 2) GO TO 95 
DO 93 K=i,Mi 
DUM =DUM+XK ( I , K ) *! I (K , J ) 

DUMMY (I , J) =-F (I , J)+DU«1 
IF(M2.EQ.O) GO TO 113 
DUM =3 . 

DO 100 K=i,M2 
XK=X+M1 
KF=K-tiMlP 

DU4=OU*1+XX (I,KK)*F(KF,J) 

DUMMY (I, j) =DUMMY ( 1 , J ) +DU «* 

Ai=J. 

IF(I.EQ.J) A 1=1. 0 

IF ( Al. EQ. 2. . AND. DUMMY ( I , J ) . EQ. 3. ) GO TO 130 

07 


-Gi-HQ2*G2) 

) 

I ) 
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00109 

00110 120 

00111 130 

00112 
00113 
00115 
80116 

00117 

00118 

00119 

00120 140 

00121 

00123 

00124 150 

00125 

00126 
00127 
0012C 

00129 

00131 

00132 

00133 

00134 150 

00135 170 
00135 

00130 

00139 1P0 

00140 185 

00141 

00142 

00143 

00144 

00146 

00147 190 


WRITE (ITRFN, 120) I,J,A2,A1,CUMMY(I,J) f K0 
FORMAT (21 , 3P, I) 

CONTINUE 
A 1=0, 

I F ( NU . EQ, 0 ) GO TO 195 
t>0 150 1=1, NU 
II=IM1P 
DO 150 J=l,MlP 
DUM=0, 

DO 140 K=1,NXT 
DUM=DU 4+C ( I , K ) A TI (K , J ) 

IF(DUM.EQ.0.) GO TO 150 

WRITE ( ITRFN, 120 ) I I , J, A2, A1 , CUM , K0 

CONTINUE 

DO 180 1=1, MiP 

DO 100 7=1, NU 

JJ=tf4MiP 

DU,M=0. 

IF(M2. EO. 0) GO TO 170 
DO 160 K=i,M2 
KK='<+Mi 
KG=!<-f-MiP 

nUM=OUM+XK (I ,KK)*G (KG,J) 

DUMMY (I , J ) =-G ( I , J) +DU 4 

IF(DUMMY(I,J)„EQ.0.) GO TO 180 

WRITE {ITRFN, 120) I,JJ,A2,A1,DUMMY(I,J) ,K0 

CONTINUE 

DO 190 1-1, NU 

II-I4M1P 

DO 190 J=i,NU 

7J=J+MIP 

IF(I.NE.J) GO TO 190 

'WRITE {ITRFN, 120) II ,JJ, A2, Ai,Xi,K0 

CONTINUE 


80143 195 WRITE (ITRFN, 120) K0 

^ (Kil (Fli-K12*F2i-Kil*nii)*Kl2+Fi2-Kl2*F22-’<li*al2) 

C '•'RITE BF » ( j 

„ C ( 8 C*TI*K12 v 

00x49 IF (Mi, EQ, 0) GO TO 205 

00151 IF(,M1P.EQ,0) GO TO 275 

00153 DO 200 1=1, MiP 

00154 DO 200 J =1 , M 1 

0J155 IF(XX(I,J) .EO.0.) GO TO 200 

00157 ’"RITE (ITRFN, 120) I,J,A2,Al,XX(I,J) ,K0 

00158 200 CONTINUE 

00159 IF (.M2. EQ. 0) GO TO 320 

00161 205 fX) 230 1=1, MiP 
08162 DO 230 .7=1, MIP 

00163 DUM=0. 

80164 DO 210 K=i,M2 

08155 !<!<=(< 4M1 

80165 KF=K+MiP 

00167 210 DUM=DU«H-XK(I,KK)*F(:<F,J) 

00163 DUMMY ( I , J ) =F ( I , J ) -D'JM 
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00159 DU 4=0. 

00170 IF(-4i.EQ.O) GO TO 230 

00172 DO 220 l< =1,141 

0^173 220 DU;4=DUM +XK ( I , K ) *H (K , J) 

00174 230 DUMMY (I , J ) =DU> V «M Y ( I , .7 ) -DU 4 

00175 DO 245 1=1, Mip 

00175 IX) 2-15 J«1,M2 

00177 i 

00173 JF=nJ+--1lP 

00179 . DU-4=0. 

00130 IX) 240 «=1,M1P 

00131 240 DU,4=DU440UM4Y(I,K)*XK(K,JJ) 

00182 245 DUrt*IY2(I,J)*F(I f JF)+DU*I 

001F3 DO 255 I=i,!41P 

00184 .1)0 255 J=1,M2 

00105 .7J=CT+M1 

00135 JF=J4-M1P 

00137 DUM=0. 

00133 DO 250 '.<=i,M2 

00189 K:<=K4-Mi 

00190 KF=K4.MiP 

00191 250 ' DU4=OUM+XK (I ,KK)*F(i<F,JF) 

00192 DUMM Y2 (I , J ) =DU 4i4 Y 2 ( I , J ) -DU'M 

00193 DUM=,3. 

0019-1 IF (Mi. EQ. 0) GO TO 255 

0019-5 DO 250 '<=i,'-1i 

00197 250 DU 4=DUM +XK ( I , K ) *H (X , JF) 

00193 255 DUMM Y2 ( I , J ) =DUMM Y2 ( I , J ) « -DUM 

00199 DO 270 1=1, MiP 

00200 DO 270 J=i,,M2 

00201 J.7=^7 4Mi 

00202 IF(DU4f4Y2(I,J).EQ.O.) GO TO 270 

00204 VRITE (ITRFN, 120) I,JJ,A2,Ai,DUMMY2(I,J) ,K0 

00205 270 CONTINUE 
00205 275 CONTINUE 

00207 IF(N’J.EQ.O) GO TO 320 

00209 CO 290 1=1, NU 

00210 DO 290 J=i,NXT 

0021a 0114=0. 

00212 DO 290 K=1,NXT 

00213 280 DUM=OU.4-C(I,K)*TIC<,J) 

00214 290 DUMMY ( I , J ) =DU 4 

00215. DO 292 I=i,NXV 

0021-5 DO 292 J=1,M2 

►10217 292 DUMMY2 (I , J)=0. 

00218 IF(MiP.EQ.O) GO TO 295 

00220 DO 294 1=1, MiP 

00221 DO 294 J=i,M2 

00222 JJ=v74-Ml 

00223 294 DUMMY2 (I, J)=X'< (I ,JJ) 

00224 295 DO 295 1=1, M2 

00225 II=I-K4iP 
00225 295 DU4MY2 (II, I) =1, 

00227 DO 310 1=1, Ml 


159 
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00220 

>W229 

00230 

00231 

00232 

00233 

00234 300 

00235 

00237 

00238 310 

00239 320 
C 

00240 

00241 

00242 

00243 

00244 330 

00245 

00247 
00243 340 

00249 345 

00250 

00252 

00253 
*30254 350 
00255 355 
00255 
00253 
00259 350 

00250 

00251 
042.52 370 

00253 394 

00254 

C 

00255 
00255 


II=I4M1P 
DO 310 . J*i, M2 

JJ=J+Mi 

DUM=0. 

DO 304 '<=]., NXT 

DU M=DU.M+OUMMY (I,K) * DUMMY 2 ('< J ) 
CONTINUE 

IF(DUM.EQ.0.) GO TO 310 

'.'.’RITE (ITRFN, 120 ) II , JJ,A2, Ai, DUM, K0 

CONTINUE 


WRITE (ITRFN, 120) K0 

WRITE TITLE, DIMENSIONS AMD MATRIX CODES 
’WRITE (ITRFN, 20 ) (TITLE (I), 1=1,15) 

NX=41P+NU 


MY-414M2 


WRITE (ITRFN, 330) NX,NY,K0 
FORMAT (31) 

IF( M lp. EQ. 4) GO TO 345 
DO 340 1=1, M1P 
MN (I ) =MNXT (I ) 

CONTINUE 

IF (\’U. EQ. 0) GO TO 355 • 

DO 350 I=i,NU 

II=I+M1P 

■4M(II)=MNU(I) 

GCMTP'’US 

IF (NX. LE. 13) GO TO 370 

WRITE (ITRFN, 350 ) (MM (I ) , 1=1 , 12 ) , I PLUS 

FORMAT (17A4,A3,A1) 

ISTART=19 
GO TO 330 
ISTART=i 

WRITE (ITRFN, 350) (VM(I) ,1^=1 START, NX) 
"•HITE (ITRFN, 250 ) (MM2 ( I ) , 1=1 , NY) 

THE END 
STOP 
SND 


.1 


1^0 
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ASSIGN 00012CL 0001GCL 

Ai O000SDA 00104- 00105= 00107IF 00109a'R 00112= £di23WR iZi3133WR 
M148WR 001 57.'/ R 00204WR 00 2 3 7a R 

A2 • 00008DA vMiCDWR 00123 a'R 0013EV/R i20148WR 00157.VR 00204WR 00237NR 
C 00003DI 00055RD 00120 00213 

CLOSE 00059CL 


DIM 

00090= 

00094= 


00121IF 

0012:WR 


00159= 

00173= 


00192 

00193= 


00233= 

O0235IF 

DUW 

0000SRL 

00006EQ 


00135WR 

00165= 

DUMMY2 

0000 5RL 

•00005SQ 


00223= 

00224= 

F 

00003DI 

00034RD 


00148 

00152 

FNAME 

0000IDI 

00011RD 

F12 

M M AD I 

00O06EQ 

F2i 

00004DI 

00004EQ 

F22 

00004DI 

00 04 OR D 

G 

00003DI 

00042RD 

G2 

MM ADI 

00044RD 

H 

00003QI 

00046RD 

H2 

MMADI 

0004 8RD 

I 

00011RD 

0001 5RD 


00034RD 

00 03 PRD 


00054RD 

00056RD 


00074DO 

00075 


00095 

00102 


00120 

00125DO 


00144IF 

00153DO 


00174 

00175DO 


00193 

00159DO 


00217 

00220DO 


00233 

0024MR 


0O2S3WR 

002G4WR 

IDEM 

00022RD 

00023IF 


00030RD 

00 031 IF 


0003PRD 

000391 F 


0004 6RD 

00047IF 


00054RD 

00055IF 

II 

00070= 

00073 


00225a 

00224 

IIN 

00007DA 

0001 1RD 

IOUT 

00007OA 

0000^'R 

IPFIN 

00007DA 

000124G 


00034RD 

0U035RD 


00050RD 

00052RD 

I PLUG 

00003DA 

O0250WR 

IRTART 

00260=3 

00242= 

ITRFM 

00 00 70 A 

00016AG 


00204WR 

00 2 3 7a' R 


00095 00093= 00102= 

00128= 00134= 00135 
00174 00179= 00181= 

00197= 00193 00211= 

00237WR 

00095= 00103= 00107IF 
00174= 00181 00214= 

00182= 00192= 00198= 
00233 

00067= 00088= 00073= 
00191 

00012AG 00015RD 00016AG 
00035RD 00057 
00038RD 00063 
00073 

00077= 00134 00135 

00077 

00081= 00094 00173 

00081 

00012RD 00026RD 0002ORD 
00040RD 00042RD 00044RD 
00064DO 00067 00068 

00077 0007ODO 00031 

00103 00105IF 00 107 IF 

00134 00135 00136IF 

001 551 F 00i57.\'R ,5016100 
00.181 00182 00183DO 

00202IF 00204WR 00209DO 
00223 00224DO 00225 

0024700 00248 00252DO 

00024RD 00025IF 00025RD 
00032RD 00033IF 00034RD 
00040RD 000411 F 00042RD 
000^oRD E0049IF 0005 3RD 
00055RD 

00075= . 00077 00116= 

00223= 00237.VR 00253= 
00015RD 00019RD 
00013»/R 00017//R 
00022RD 00024RD 0002CRO 
C0038RD 0004.5RD 00042RD 
00054RD 0045800 00059AG 

002.83VR 

40109.VR 001238R 0013S.VR 
00239'NR 00240.VR 04243/,'R 


00103 00118= 00120= 

00163= 00167= 00163 
00182 00187= 00191= 

00213= 00214 00231= 

00109WR 00135= 00135IF 
00233 

00202IF 00204WR 00217= 
00095 00102 00167 


ORIGINATE PAGE IS 
OF POOR QUALITY 

00197 

00030RD 00032RD 00034RD 
00046RD 00 04 3RD 00052RD 
00069DO 00070 00073 

00082 00038DO 00094 

00109.VR 00115DO 00116 
00139.'iR 00140DO 00141 
00167 00168 00173 

00191 00192 00197 

00213 00214 0021500 

00225 00227DO 00223 

00253 00254 0025SWR 

00027IF 04 02 CRD 00029IF 
00035IF 00036RD 004371 F 
0004 3IF 00044RD 0004 5IF 
000 51 IF 00452RD 00053IF 

001274R 00141= 00146WR 

00254 


040 2 CRD 04 03 400 00 03 3RD 
0004 4RD 0004600 00048RD 


00147-/R 8014CWR 00157NR 
0425F.VR 00247-,'R 00264'vR 


80032RD 00034RD 00036RD 00033RD 00040RD 


0004 2RD 00044RD 00048RD 


14 , 


J 



NYO 

MYS 

uz 

71 

TITLE 
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33048RD 00052RD 00054RD 30055RD 00065DO 00066 31371 00063 

3337100 33372 33373 33377)0 33377 00079DO 33383 33331 

k!v'!i?82 . 30089DO 33394 3339 5 33132 33133 00105IF 001071F 

00109WR 33 11700 33123 00123WR 0012030 -00127 33134 33135 

0313511? 0013a*/R 0014200 00143 001 4 4 IF 00154DO 00155IF 001574R 

001 7200 08167 00168 00173 3317 * 0017600 00177 00178 

00132 0018400 00105 00185 33192 00198 0020000 00201 

00202 IF 00284WR 0021*300 00213 00214 0021500 00217 0022100 

00222 00223 00229DO 00230 00233 

00i73= 00102 00185= 00191 00197 

00055= 00057 00058 00072= 00073 33383 - 00081 00032 

00127= 00138531 00143= 00145WR 00177= 00131 00185= 00201* 

002O4WR 00222= 00223 00230= 00 237WR 

80-02100 00-09300 00094 000S9DO 00100 00101 00119DO 00120 


30131DO 

00132 

00133 

00164DO 

00165 

00165 

08172DO 

00173 

0018000 

00213 

00181 

30232DO 

00188DO 

00233 

00189 

00190 

00195DO 

00197 

00212DO 

00101= 

00133= 

00102 

00134 

001 65* 

08167 

00190= 

00191 



80100= 

00102 

00132= 

00134 

00165= 

001-57 

00189= 

00191 


0000GDA 00109WR 00123.*/R 00138WR 30I46WR 80148VR 00157WR 00204WR 

00237/,'R 00239VR 00243WR 

00005RL 00248= 00254= 00258WR 00263WR 

00002RL 00026RD 00254 

00002RL 00030RD 00248 

000-02RL 0002ORD 00254WR 

00050RD 00030 00091 IF 00093DO 00100 00132 00149IF 0015400 

0*^165 00170IF 00172DO 00177 00185 00189 00194IF 00196DO 

00201 00222 00230 00242 

00050RD 00060IF 00054DO 00065 00.070 00072 00075 00073DO 

0-0034IF 00035IF 00088DO 00089DO 80101 00116 0011700 00125DO 

00127 00133 30141 . 00143 00151IF 00153DO 0015100 00.15200 

30165 00175DO 30178 00180DO 0018300 00185 00190 0819900 

0021RIF 80 2 28DO 00225 00228 00241 00245IF 00247DO 00253 

00850RD 08052IF 000 5 500 00059DO 0007100 0007400 00079DO 00096IF 

88099DO 80129IF 0013100 00159IF 0015400 0017500 00184DO 0018300 

0020000 00216DO 00221DO 3022400 0022900 03242 

00350RD 

00324RD 0007600 00034IF 00035IF 00113IF 0011500 0012500 00140DO 

0014200 00207IF 00209DO 3022700 00241 00250IF 80252DO 

J0024RD 

0002CRD 00028RD 00030RD 00032RD 00034RD 00035RD 00038RD 00040RD 

00042RD 00344RD 00046RD 00048RD 00052RD 00054RD 08056RD 00241= 

00243WR 30255IF 00263WR 
83024RD 00058 
80024RD 00058 

00058= 331I9D0 0021000 08212DO 83215D0 00232DO 

00332RD 83034RD 00036RD 0003 3RD 00 34 3RD 08042RD 00044RD 00845RD 

00-J48RD 00052RD 00054RD 00055RD 00242= 00243WR 08254WR 

00824RD 

00024RD 

00024RD 

8000301 30332RD 00120 00213 

00801DI 00019RD 00240WR 
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RT 

XK 

XI K2 
Xi 
1(3 
ICO 
110 
12 
123 

•i.33 

14 

140 

150 

ISO 

170 

180 

185 

190 

i95 

20 

200 

205 

210 

220 

230 

240 

245 

250 

260 

255 

270 

275 

280 

290 

292 

294 

295 
295 
30 
300 
310 
320 
330 
340 
345 
35.7 
355 
350 
370 
380 
40 
50 
50 
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00003DI 

00157 

,7000491 

00008DA 

00009SVR 

00099DO 

00097GT 

00013WR 

00i09."R 

00237/R 


00052RD 00032= 
00173 00181 
00054RD 00032 
00146WR 


00094 

00191 


00102 

00197 


00134 

00223 


00155IF 00157a'R 


00033DO 

00017VR 

00119DO 

0011590 

00131DO 

0013,7GT 

00125D0 

00.785GT 

00 14. TOO 

00087GT 

00011RD 

0015300 

00150GT 

001.5/.DO 

0017200 

0015100 

00 x C ODO 

0017500 


00102* 

00104* 

00014* 

00239VR ^ 123WR C0i3SWR 0,7157WR 00204WR 

0008900 00103GT 00111* ' 

00018* 

00120* 

00117DO 00122GT 00124* 

00134* 

00135* 

00125.00 00137GT 00139* 

00140* 

O0 14 2.00 00145GT 00147* 

00114GT .’0148* 

^‘515RD 00019RD 00020* 00240WR 


fOx54DO i/v7x55GT 00 1 53 * 
00151* , 

00157* 

00173* 

0015290 00I71GT ,70174* 
00181* 

001 7500 00182* 

00183DO 00191* 

00195DO 00197* 

0013390 0010400 00195GT 0019-3* 
<■•■0x9990 00200DQ O02O3GT 00205* 
00152GT 00205* 

00212DO 0,7213* 

0020990 00210DO 00214* 

0.721590 00215DO 00217* 

•70220DO 00221DO 00223* 

0021 9GT 00224* 

,7022490 00226* 

000 2 IDO 00,757* 

00252DO 00234* 

00227DO 8022800 00236GT 002' 50 * 
00160GT 0020O7T 00239* 

00243WR 00244* 

0,724790 v7v724C* 

00246GT 00249* 

00252DO 00254* 

0.7255* 

0,7259* 

00262* 

00263* 

00058* 


00252WR 
00257GT 
0v?251GT 
00.72289 
OiIOMDO 
00»T5xGT 00059* 


00263WR 0O264WR 


0006590 0,7053* 


143 
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7.5 

33.159DO 

0007100 

2,1.173* 

75 

J3274DO 

00,17500 

33277* 

80 

3 <107300 

0,107900 

•33302* 

35 

33353GT 

03383* 


90 

•’029300 

.13394* 


95 

33392GT 

33395* 
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C BLOCK 9 - CLOSED LOOP SYTTC-I ANALYSIS 

C CONFUTES TOFN FILE FROM PROBLEM FILE AMD 1M INPUT 

C FOR CLOSED LOOP SYSTEM ITIVSSFER ANALYSIS. 

*WWi DIMENSION PNAME (4 ) , TITLE (15) • '' 

C INPUT MATRIX ARRAYS 

.W32 REAL MNW(i'j) ,*.\?rn (5) ,MMV(I5) ,.4NTOL (f») ,MNYO (15) # M.-S{15 ) , 

BBBB3 DIMENSION CMC(10,1S) ,CC(1B,S) ,CC(IB«5} ,PC(1J,1.!) # 1M;15,1B) , 

+ FM(15,r>), '10(15, ;B),Ei(33,5),AF(lS,:5),ilF(ir>, 15), 

+ CF<5,i5),OF(ViS),XIM(I5> 

C 'WOWING SPACE 

MM REAL MNN (55) ,M AM (A l') 

AIMS DIMENSION DlWHY(i5 # i5) # aW4Y2(.15,15). 

C DATA 

OMiJS DATA I III, TOUT, IPFIM, ITRFN /5, 7,20,21/ 

030 B7 DATA A2,A1,K3, XI, IP /3. , .5 . , *, I. , • + */ 

C READ FILENAMES, TITLE AMD IM MATOIK 

JJM8 write (iout,:b) 

AM*!9 Id FCRMATdJX, 'CLOSED LOOP SYSTEM neFlMITION - BLOCK 9\/,2X, 

+ : ’INPUT PROBLEM FILE 'NAME ? ■'#$) 

*3313 READ(ItM.2d) (IW-'E(I) ,I»i,4) 

AWll CALL .ASS.VM .IPFIN,PNAME) 

MU 'WRITE (lOirr, 12) 

W/N) 12 PCD 4 AT (2X, ‘OUTPUT TRFN FILE NAME ? ' ,$) 

»Wd*4 READ (I IN, 2 J) (FN\ME(1M»1«4) 

33315 CALL ASSIGN (ITRFN, FfcCC) 

»voir> write (rout, 14) 

MB 17 14 F0MAT(2X, 'TRFN TITLE (SO CHARS) : 

BJ013 READ (I IfJ, 23) (TITLE (I) ,1=1, 15) 

BOB I*) 2B FCR4AT(15A4) 

03323 WRITE {XCW, 25) 

00021 25 FORMAT (2X, ' IM DIACCMAL ELEMENTS (NZ-OF“TI!E4) : ’) 

03022 READ (l IN, 20) (XIM(I) ,I«i, 15) 

0002? V> FORMAT (15E) 

C READ THE FOLLOWING FROM TIE PROBLEM FILS: 


c 

pr^sicm 

IPK«*2 

c 

w vw'xmcs 

IO£N»4 

c 

TO MME COMICS 

intwi=5 

c 

V MNEMONICS 

IDENirj 

c 

TO L /MDIOfJICS 

I DEN “7 

c 

TO Mis^OUCfi 

IDEN«“ 

c 

7- 

IDEM«13 

c 

xr mnemonics 

IDEN«12 

c 

G,C MATOIX 

insN’«ic> 

c 

CC MATH IX 

IDEM*!? 

c 

CC MATRIX 

IDBNalO 

c 

PC M ATRIX 

IDF-'NIS 

c 

IM liATOXX 

IDEN*23 

c 

Frt MATRIX 

tren«2; 

c 

m <ATOIX 

iDi:.'i«22 

c 

El MATO IX 

IDEM«2'9 

r 

XT ,4VEM^MJCS 

ICKM»34 

c 

DMEVSI&4S 

IDBN«54 

c 

AF MATH IX 

1CEN»1I<> 


ORIGINAL PAGE IS 

of rooii quality: 
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C 

C 

c 

32324 

32325 
33 .125 
33228 
23333 
23332 
33334 
333 3'* 
33339 
33243 
33342 
30344 
33344 
23043 
23053 
23052 
03054 
O.IOSS 
033S9 
20343 
02042 
‘22364 
33366 

oooss 

33373 43 
23271 45 
32372 


33373 

23375 

3337". 

22377 

3337ft 

23380 

2003 1 

23232 

33233 50 

00094 ".3 

23385 

23284 

23297 7.1 

33.199 

23289 .33 

0229.1 

3.1392 

33.194 

22.195 93 
2239 9 123 
22397 


BP WRIX I DEN 1 *! 17 

CF MATRIX IDEM-1 i 8 

CF MATRIX inSM*Sl9 

DO 23 K»i,233 
READ (IPFIN, EM1>45 ) IDEM 

IF ( IDEM. FQ. 1) READ (I PF IN) IDEM, NXS c HXC , MJ , NN, KZ. , NYR , MYQ 
IFJlDEN.no. 3) READ(tPFIN) IDEN, NX, (t«Md) #X*1,NX) 

IF( IDEM. EO. 4) READ(IPFIM) IDEN, MX, (MW5 (I) , 1*1, NX) 

IF (IDEM. DO. 5) READ(tPFW) IDEM, NX, (MNV(I), I"I,NX) 
IF{IDEM.E0.6) READ (I PF IN) IDEN, NX, ( WOL ( I ) , 1*1 , MX) 

IF( IDEM. EQ. 0) RE A D ( I PF IN ) IDE M , NX, { MMYO (I ) , 1*1, NX ) 
IFdDSM. EG. 9) READiXPPIN) IDEN, MX, (MMZ(X) , I*i,.NX) 

IF( ICEN.EQ.il) READ(IPFIN) IDEM, MX, (NNXCJT) ,1*1, NX) 
IFJinEM.EQ. 15) READ(IPFIM) IDEN, MX, NY, ( (G4C (I , J) ,J*i,NY) 
IFjIDKN.EQ.lfi) READ (IFF IN) IDEN, MX, NY, ( (GC(I,J) ,J»i,NY) , 
IFJIDEN. EQ. 17) REAP(IPFIN) IDEM, MX, NY, ( (00(1,3) ,J*I, •«) , 
IF(IDEN. EQ. 1ft) READ (IPFIN) IDEN,NX,NY, ( (FC(I,J) ,J»l,v/) , 
IF (IDE*.’. EQ. 19) READ(IPPTN) IDEM, MX, NY, ( (*H(I,J) ,J=1,NY) , 
IF(ID2N.EQ.2.)J READ (IFF IN) IOEM^My' ( (mJi.JJ NY) , 

RKM ' (r?FW> IDEM, NX, NY, ( (HO (1,0) ,0*1, NY) , 
IF (ID!,N. f,C. 29) READ (I PF IN) IDEM, NX, NY, ( (El (I,J) ,J*1 'm . 
IF (IDEN. EQ. 33) READ. (IPFIN) IDEmInxI (MWT(I) , I--1,NX) 

IF(IDSN. EQ. 53) READ(IPFIN) IDEM, Ml, MlP,M?,N2p 

!H;S!-5S-H?5 READ ( I PF IN ) IDEM, NX, NY, ( (AF(T,0) ,0*1, NY) 
IF(IwLM. EQ. xi A) READ(IPFE'J) IDEN, NX, MY, ( (UF(I,J) ,0*1, NY) 
IF(IDSN.EQ.I17) READ (IPFIN) IDEM, NX, NY, J(CF(I,J) ,0*1, \7) 
rFJID^EC.lin) RCAP(IPFW) IDEM, MX, MY, ( (OF(I,J) ,J*1,NY> 

-V.OV. I IwUli 

v.*w.r«;-wxc 

CALL CLOSE (IPFIN) 

(SI-ACC -ACF 
•VRITE AS * ( -A1A0 SI-AFF 
( -RTF 3 

IF(NXO. EQ. 2) GO TO 233 
DO 122 I-1,NXC 
DO 123 J*i,MXC 
DU4MY(I,0)*-FC(T,0) 

IF(. V 2. EQ. 3, OR, MJ. EQ» 3) GO TO 33 
DO •">.? ’<*i,MH«i2 
DU**3» 

DO 53 L~1 , MJ 
DU «=OUM+GC (I,L)*DF(L,X) 

DU 4MY2 (I , K ) "DU-l 
dum=3. 

DO 7.5 K*i,Mi-W2 

DIM *01/4 -MX) AN Y 2 ( I , K ) *1 W ( K , J ) *X I ’4 ( K ) 

IXMMY (I , J) *DU MY (I , J) -DC 4 
M*J, 

IF(I.FQ.J) Ai*i.3 

IF(Al.EQ.3..A*'37.D74MY(r,J) .RQ.O.) GO TO 1.13 
WRITS (ITRFM,9J) I,,T,A2,Al,rU44Y(r,J) ,K0 
FORMAT (2 I , 3E , I) 

CONTI MUD 

IF(-v;p.EC.3) GO TO 175 


, I®!, MX) 
1*1, MX) 
1*1, MX) 
1*1, MX) 
1*1 , MX) 

1 *1# WO 
1*1, NX) 
1*1, NX) 


,r*i,MX) 
,1*1, MX) 
,1*1, MX) 
,1*1, NX) 


3 / 

3) 

I) 
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*\M99 
.1.5100 
iWlii 
"*3I 02 
>1.1103 
0.1104 
001.15 

. 1010-1 

t1.l4.tv3 

00109 

00110 
Will 
.10112 
*1.1113 
.10114 
>33216 
*1.1117 
.10118 
00120 
<1.1121 
.10122 
.10123 
O.U24 
00125 
00127 
.Ml 25 
00129 
00131 
.10133 

00134 

00135 
00135 

00137 

00138 


5.1 


175 


LCO 


190 

2.10 


210 


220 

230 


00139 

00141 

00142 

00143 
.50144 
0.1145 
00145 
0.1147 
0.1148 
0.5150 
00151 
0.1153 

00154 24.1 

00155 205 
00155 
.10157 
.M159 250 
00159 


A1»0. 

DO 170 
II=I+NXC 
DO 17.5 .J«1,NXC 
DU 4=0, 

DO 150 K»i,Ml+M2 
. D'J 4«OU«l-BF ( I , K) *’IM (K , J ) *X IM (K ) 
IF(DU4.EQ.0.) GO TO .170 
WRITE (ITRFN, 90) II,J,A2,Al,Itt4,!« 
CONTINUE 
DO 180 
II^I+'IXC+MiP 

DO IPO 'J«1>XC 

IF(DU'4.I:o. 0 .) c.0 TO IPO 

WRITE (ITRFN, 90 ) I I,J,A2, Al, DUM, K0 

CONTINUE 

TF (NYO. EC« 0) GO TO 200 
DO 190 1=1, NYO 
IT« t +NXC-*5tiP4NZ 
DO 180 J=i,NXG 
DUN— HO (I, J) 

IF(DU4. EQ. 0. ) GO TO 19,1 

WRITE (ITRFN, 9.1) II,J,A2,Al,DJ4,K0 

CONTINUE 

CONTINUE 

IFC-'IP.EQ.O) GO TO 245 
IF(NU.EQ.O) go TO 230 
DO 220 1=1, NXC 
DO 220 J=l,NiP 

JJ-J +•:•!, xc 

DU 4=0. 

DO 210 :<=*1,NU 
DU r 4=OUM-CC ( I , K) *CF (X , J ) 

IF(DU>1. EC. .% ) GO TO 220 

WRITE (ITRFN, 90) I , JT,A2,A1, DU4,K0 

CONTINUE 

DO 240 1=1, MU* 

ir=r+Nxc 

'X> 240 J=1,M1P 

JJ=0+NXC 

M«.l. 

IF(I.r-O.J) 51=1.0 
DU4»-5S (t,J) 

I F ( Al . EQ. ,1. . AND . DUN . Ep. 0. ) GO TO 240 
'••'R ITE ( ITRFN, 9.1 ) II , J,7 , A2, Al , CUN , KO 
CONTINUE 
A>0. . 

DO 25.1 1*1, NZ+NYO 
II=HWXC+^lP 


G"4C) 

0 ) 


WRITE (ITRFN, 90 ) X.l 

*4. , 

t\x t rvj. ( 

(PCS 

BCV 

BCL 

WRITERS® (RFG 

BPV 

IWl 



IU 7 




®«i%v t, 


V <‘v,v 


F.T-11 INDEX V.33 SOURCE LISTING 


/ 


001 52 
0.3154 
.3.3155 
.30155 
.30158 
00169 
0.317.3 
.30171 250 

00172 270 

00173 

00174 

00175 230 
00175 290 
00177 
00179 
0012.5 3,3.3 

00181 310 

00182 

00184 

00185 
00185 
00137 
001 S3 

00189 320 

00190 

00192 

00193 330 

00194 335 
00185 

00195 ’ 
00197 

00199 

00200 340 

00201 350 
.50202 

00204 

00205 
0U20S 
00207 
00203 

00209 350 

00210 
00212 

00213 370 

00214 
0021-5 380 

00217 

00218 

00219 

00220 
00222 
00223 390 


10-APR-79 03:12:14 PAGE .300 04 

(El 0 0 0 ) 

IP(NXC.EO.O) GO TO 310 
IF(NYS.EO.O) GO TO 350 
DO 300 1*1, NXC 
DO 300 J*1,NYS 

IF(N2. E0, O'. OR. I U. EQ. 0) GO TO 290 

TO 270 :<»l,Ml+M2 

DUN--,). 

DO 250 L*1,NU 
DUM=OU -1-K5C ( I , L) *DF (L, K) 

DUW2(I,K)»DU>1. 

DUM=0. 

TO 280 K«1,M14M2 

DU •1 !S DU'4+DU 44Y2 ( I , K) * 144 (K , J ) *XIM (K ) 

DU4MY (I , J)=CC(t , J) 4-DUM 

IF(D>HY(I,J) .80.0.) GO TO 300 

WRITS (ITRFN, 90) I,J,A2,AI,IXKMY (I,J) ,K0 

CONTINUE 

CONTINUE 

IF(MlP.EQ.O) GO TO 335 
DO 330 1=1, MiP 
II=I+NXC 
TO 330 J«i,NYS 
DUN=,3. 

DO 32.3 K=i,Mx4M2 

DUN =OU'-H OF ( I , K ) * FM ( K , J ) *X I M ( K ) 

IF (DUN. EQ. 0. ) GO TO 330 

'"RITE (ITRFN, 90) II,J,A2,AI,CUN,K0 

CONTINUE 

TO 340 I *1 , NZ -H-'YO 

II=I+Ntf-J4MiP 

TO 340 J=1,NYS 

IF(E1(I,J) .En.O.) GO TO 340 

'WRITE (ITRFN, 90) II,J,A2,A1,E1(I,J) ,K0 

CONTINUE- 

CONTINUE 

IF(NXC. EQ. 0. OR. MJ. EC. 0.CR.M2. EQ. 0) GOTO 330 

DO 370 1*1, N)C 

DO 370 J*l,..li4M2 

.JJ=\T4-NYS 

DU 4=0. 

TO 350 K*i,MJ 
DU'4=OUN+3C ( I , K) *DF (!< , J ) 

IF (DUN. EQ. .3.) GO TO 37.3 

WRITE (ITRFN, 90) I,JJ,A2,A1,DUN,E0 

CONTINUE 

IF(MiP.EQ.O) GO TO 395 
DO 390 1=1, MIP 
II=I+NXC 

DO 390 J«i,Ml+-N2 
-JJ=HNYS 

IF'(RF(I,J) .EQ.0.) GO TO 39.3 

WRITE (ITRFN, 90) II,.U,A2,Al,BF(I,J) ,!<0 

CONTINUE 

lUfi 
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*3224 

395 

CONTINUE 

*8225 


IF(NYG.CO.O) GO TO 470 

00227 


IF(N>G«£Q. O.CR, MJ. EQ. 0.CR.M2. EQ, 0) GO TO 440 

i5tJ229 


DO 410 I -*1 , NXC 

00230 


DO 410 J=i,Mi+M2 

»M23i 


004=0. 

00232 


DO 400 X*1,NU 

00233 

400 

DU.4 =D- N-K5C ( I , K ) *DF (K , J ) 

00234 

410 

DUMMY ( I ,,7 ) *DU A 

00235 


DO 430 I=i,NXC 

00235 


DO 430 .1=1, NYS 

*10237 


JJ*\J-»MYS4Mi-H42 

00238 


DlM»0. 

00239 


DO 420 K=i,Mi-»M2 

00240 

420 

DU-1 =OU 4+OUMM' Y ( I , K ) * FM { K , J ) 

00241 


TF(DU'4.EQ.O.) GO TO 430 

00243 


'■’RITE (ITRFN, 90) I ,JJ,A2, AI, DU-4, KOI 

00244 

430 

continue 

00245 


IF(MlP.EQ.0) GO TO 470 

00247 

440 

DO 4-52 1=1, MiP 

00248 


II=I+-MXC 

00249 


DO *50 .1=1, NYS 

00250 


JJ—J + f -IYS-F4i+f42 

00251 


DU'4=0. 

00252 


DO 450 :;*1,M1-K42 

00253 

450 

DUM=D'J4«F(I ,K)*FM(X, J) 

00254 


IF(DU4.EQ.0.) GO TO 450 

00255 


WRITE (ITRFN, 90 ) 1 1 , JJ , A2, Al, DU 4 , KO 

00257 

450 

CONTINUE 

00258 

470 

CONTINUE 

00259 


I F ( MW. EQ. 0 . CU . NXC . EQ. 0 ) GO TO 490 

002S1 


DO 430 1=1, NXC 

00252 


DO *30 . 3 = 1 , m 

00253 


J J = 7 +2 *NYS -W 1 NM 2 

00254 


IF(C4C(I,J).EQ.0.) GO TO 480 

00255 


WRITE (ITRFN, 90 ) I,JJ,A2,A1,G-1C(I,J) ,K0 

002-57 

480 

CONTINUE 

002-53 

490 

WRITE (ITRFN, 90) X0 


C 

WRITE TITLE, DIMENSIONS AND COLUMN CODES 

00259 


WRITE (ITRFN, 20) (TITLE (I ) , 1=1,15) 

00270 


NX=MXC-MlP-fNZ4NYO 

00271 


NY*2*NY3-W-i+*4 2-H4W 

00272 


WRITE (ITRFN, 500 ) NX, NY, KO 

00273 

500 

FORMAT (3 I) 

00274 


IF(NXC.EQ.O) GO TO 520 

00275 


DO 510 1=1, NXC 

00277 

510 

.-INN (t )=MNXC ( I ) 

00273 

520 

CONTINUE _ 

00279 


IF(MiP.EQ.O) GO TO 540 ORIGINAL 

00281 


DO 530 1=1, HIP OF POOR 

00282 


ii=hnjc. 

00283 

530 

MNN (II)=‘4MXT (I ) 

00284 

540 

CONTINUE 

00285 


DO 550 1*1, NZ 


1U9 
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30286 II«I4NXC+M1P 

00287 550 MNNdD^i.NZII) 

00233 IF(N'YO.EQ.O) GO TO 570 

00290 DO 550 I =1 , NYO 

00291 II*I+NXC4MlP-WZ 

00292 550 MNM (I I ) “‘•INYO (I ) 

00293 570 CONTINUE 

00294 IF (NY3. EQ. 0) GO TO 590 

00295 DO 530 1*1, NTS 

00297 530 ?4tf-1(I)*MMrS(I) 

00293590 DO 630 1*1, NZ 

00299 II=HMYS 

00300 500 NM4(II)=MMV(I) 

00301 IF(NY!J.ECN.O) GO TO 520 

.30303 DO 510 I«i,NYS 

00304 I I *1 +NYS+NZ 

00305 510 M.\M(ir)*MNrOL(I) 

00305 520 CONTINUE 

00307 IF{NW.EQ.O) GO TO 540 

00309 DO 530 1*1, W 

00310 II=I+2’MYSNNZ 

•00311 530 ’W(II)s«<(I) 

00312 540 CONTINUE 

00313 IF (NX. LE. 1C) GO TO 570 

00315 '.-.’RITE (ITRFN, 550) (MNH (I ) , 1*1,18) , IP 

0 )315 450 FORMAT (17A4 , A3, A1 ) 

00317 IF(NX.LE.35) GO TO 550 

09319 WRITE (ITRFN, 550) (MNM (I) ,1*19, 35) , IP 

00320 ISTART*37 

00321 GO TO 580 

00322550 ISTART*19 

00323 GO TO 580 

00324 570 ISTART*! 

00325 530 WRITE (ITRFN, 553) (MNN(I) ,I=IS?ART,HX) 

00325 IF (NY. US . 13 ) GO TO 700 

00323 V RITE (ITRFN, 552) (M!<M(I) , 1=1, 13) , IP 

00329 IF (NY. LIN 34) GO TO 490 

00331 WRITE (ITRFM, 550 ) (?<W (I ) , 1*19, 35) , IP 

00332 ISTART=37 

00333 GO TO 710 

00334 590 I START*! 9 

00335 GO TO 710 

.30335 700 ISTART*! 

00337 710 WRITE (ITRFM, 550) (MW (I) , I=t START, NY ) 

■ C THE EK'D 

00333 STOP 

00339 END 
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AF 

ASSIGN 

A1 


A2 

RF 

CC 

CF 

CLOSE 

DF 

DU'1 


DIMW 

DU'-V'1Y2 

El 

FC 

PA 

FH/V4E 

GC 

CMC 

ll"l 

HO 

I 


TDEN 


II 


0000 3D I 
OOOiiCL 
O0 O07D A 
00128WR 
0017«s’R 
OO007DA 
00179V/R 
Oil .10 3D I 
0000 3D I 
00 00 3D I 
O0072CL 
0O0 J 30 I 
00.131= 
00I06IF 
001?".= 


00171= 
O0192WR 
00233= 
00005DI 
00234= 
00005DI 
0O0O3DI 
00 O0 3D I 
0000301 
O0 .10 ID I 
00 00 3D I 
0O Oil 3D I 
O0 OO 3D I 
00 O0 3D I 
OO010RD 
00037RD 
00053RD 
00 07 5DO 
00094V/ R 
00121 
00150 
001 771 F 
0O199WR 
O0229OO 
00253 
O0282 
0O296DO 
0O319DO 
00337/R 
00O25RD 
000 3 3RD 
0004 1RD 
00849RD 
00057RD 
00O55RD 


0OO6 3RD 
0001‘jCL 
00089= 
08141WR 

00192WR 

00094V/R 
00192WR 
00065RD 
0004 7RD 
O0057RD 

OO059RD 

00033= 

i/Oj. OOV/R 

00133= 

00172 

00207= 

00240= 


00240 
00084= 
00057RD 
0O049RD 
000 5 3RD 


00150 

00091= 

00147= 

O0199WR 

0O103WR 

00199WR 

0O1O5 

90176 

00133 

00.133 

00084 

00113= 

O0139IF 

00173= 

00209= 

00241IF 

00083= 


00092 IF 

00149= 

0021 2WR 

0O11S-/R 

00212','R 

O0189 


0.0171 

00035= 

0 O x a 4 1 F 
00141WR 
00175= 
O021OIF 
0024 3XR 
000 92 IF 


00094', VR 
001 51 IF 
00222WR 
08123WR 
O0222WR 
O022OIF 


00099= 
001 5 31. '/R 
00243’VR 
00141WR 
00 24 3 '/R 
00222.VR 


80103WR 08U6WR 
00155= O015CVR 


0025SV/R 

O0i5?*’R 

00256WR 

00253 


00256WR 

0015SWR 

08266WR 


00209 

00037= 

00118WR 

0015’= 

00175 

0O2i?.\'R 

30251= 

0OOS4WR 


00103= 
001 24 IF 


00233 
00033 
00123= 

00151IF 
00107= 

00231= 

00253= 

00176= O0177IF 


i 


30153WR 


00189= 

00233= 

00254IF 


00105= 

0O126.\'R 

00169= 

00190IF 

00234 

O02 5 7.-, 'R 

0O179WR 


0O 04 3RD 
00051RD 
0O055RD 
00014RD 
O0O39RD 
0O055RD 
0O077 
OO1O0DO 
00123 
00156D0 
0O179WR 
OO204DO 
00233 
0026100 
00283 
00297 
00310 

00 8 2 f. IF 
0003 41 F 


00248= 

00299= 


0004 21 F 
00050IF 
OO 053 IF 
OO 056 IF 
00103WR 
001 5C/.T< 
00255WR 
00300 


00037 
OO 197 IF 
00 077 
00175 
000 HAG 
00033 
00 2 64 IF 
00037 
00123 
00J1CRD 
0J041RD 
O0057RD 
OO033 
00101 
00133DO 
00157 
0018400 
00209 
00234 
00 2 64 IF 
00235DO 
O0293DO 
00311 

00027RD 
00035RD 
0004 3RD 
00J51RD 
OO059RD 
00057RD 
00111= 


00172= 00175 
"mWMR 

00139 00240 00253 

OO014RD OO 01 SAG 
O0133 00171 OO20C 

00266V, : R 
00185 00113 


00282 s 

00304= 


08022RD 

00 04 3RD 

00059RD 

80034 

00105 

00138 

O0164DO 

00185 

O0212.VR 

082 3500, 

00246WR 

00285 

00299 

00315VR 

00023IF 
00036IF 
00044 IF 
080 521 F 
80060, IF 
000 53 IF 
0OI16.VR 
08l9?s'R 
00283 
00305 


00J29RD 
0084 5RD 


l/W 

00037 

OOilODO 

O0141WR 

•A* A tx 

00189 

00217X3 

00240 

00259WR 

00287 

80300 

80319V, 'R 

00029RD 
0O037RD 
0J045RD 
00 05 3RD 
00O61RD 
00059RD 
00121= 
oc- 


OO031RD 
O0847RD 
00065RD 
08088 
00111 
00143DO 
00172 
00194DO 
00217 
0024 3WR 
0027-5DO 
0O29ODO 
O0303DO 
00325V/R 

00 0.301 F 
00835IF 
08845IF 
O0054IF 
00062IF 


00233 


00033RD 

OO049RD 

00057RD 

000 90 IF 

8 O j. i. 3 

00144 

00175 

00195 

0O220IF 

00247DO 

00277 

00291 

00384 

OO 3 2 81*/ R 

08031RD 
O8039RD 
00047RD 
00055RD 
000 5 3RD 


00035RD 
00051RD 
C0059RD 
00892 IF 
0012800 
08148IF 
00175 
00197IF 
00222WR 
00248 
0023100 
00292 
O03O5 
00331X8 

O0O32IF 
00040I F 
0OO48IF 
00055IF 
O0.354IF 


*a*aY5 

88285= 

00310= 


8 0 j 

0O199WR 

00287 

00311 


80144= 00157.VR 

08217= O0222VR 

00291= 00292 
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IIN 
I OUT 
IP 

iPFrt! 


ISTART 

ITRFN 


J 


JJ 

K 


&w.ir>:>A 

04O05DA 

0AW7DA 

00005DA 

00037RD 

04053RD 

00059RD 

00320** 

00kW5OA 

Mismi 

0025%R 

.W320WR 

O0043RD 

04053RD 

40094IF 

3421GWK 

,30145 

0015500 

00209- 

03235DO 

00254IF 

00135* 

00237= 

0002400 

00137DO 

00189 

00253 


0vW10RD &W14RD >30 0 1 3RD 00022RD 
0.M.JSWR 0SJ12VR iWuiflWR AW20WR 
04313VR 00319WR 0032SWR 04331WR 

WJ11AG 04425RD 00427RD 04029RD AW31RD 00033RD 00035HD 
0J439RD DtW4lRD AW '1 3RD 04045RD 00047RD 00049RD 00051RO 


AW55RD 

0W72AG 

00322= 

AW 1 SVG 

M1594R 

04255WR 

04331WR 

00J45RD 

0.WS5RD 

AW 92 IF 

001 22DO 

00I48IF 

04IP9 

002I8OO 

04237 

t'-.Wri'WR 

.W141WR 

■W243-/R 

40J30DO 

00133 

04203DO 


AW57RD 0A359RD AW51RD AW 6 3RD 00055RD AW57RD 


00324= 

04494WR 

00179WR 

00253WR 

00.337NR 

D0047RD 

04087RD 

00094WR 

0.3123 

00150 

00192WR 

.00219 

002 40 


•30325.VR 

0010SWR 

•M192WR 

00 2 59/; R 

00049RD 

00059RD 

001 02DO 
00 125WR 
00155DO 
4419500 
0J220IF 
0024 9DO 


00332* 00334“ 00335* 00337-JR 

0011S.VR <»12<HR 00141WR 04153WR 
00199.VR 30212WR 00222 , m 00243WR 
04272WR A5315WR 00 31 9, -.'R 40329VR 


00051RD 

0,507500 

00105 

0013400 

00175 

00 1971 F 

40222WR 

00250 


00053RD 

00077 

00108'NR 

00135 

00175 

00199WR 

00230DO 

00253 


00055RD 

00037 

00112DO 

00133 

00205DO 

00233 

00252DO 


00057RD 

00083 

00113 

0014500 

00179WR 

00205 

•00234 


00145= 0Z153\R 00205= 00212WR 00219= 00227vR 

00250= 00255NR 00253= 00255WR 

00083 00034 0003500 00037 0010400 00105 

0015-300 00171 00172 0017^00 00175 0018000 

00209 0O232DO 00233 00 2 3 900 0024 0 0025200 



00007DA 

00094WR 

00103’VR 

A311G-/R 

AI129VR 

04141' -JR 

04 15.3, -JR 

00159'/.'R 


00159//R 

40179WR 

00192 , -v'R O0199WR 

04 21 2 ‘/R 

00227VR 

00243WR 

04255WR 


00253WR 

00259WR 

Jt3272WR 






L 

00092DO 

00083 

O017ODO 

04171 





MNM 

00004RL 

03297* 


00305“ 

00311= 

0032K-JR 

00331WR 

04337JR 

mnn 

00004RL 

00277= 

M2m* 

00237= 

04292= 

40319‘,'R 

00319-JR 

00329', ’R 

mntol 

0000 2RL 

AW35RD 

*203-35 






AKtVy 

00002RL 

00031RD 

00297 






AW 

04.W2RL 

00 4 3 3RD 

00330 






MM.V 

00002RL 

40029RD 

003ii 






myc 

•00002RL 

04041RD 

00277 






MMXT 

00002RL 

00059RD 

00233 






MNYO 

00042RL 

40037RD 00292 






mz 

00002RL 

Mt39RD 

04287 






M A 

00051RD 

500 

0003500 

00,10400 

0J168OO 

001 7400 

04188DO 

00205DO 


•00 21 EDO. 

M22ZQO 

04237 

0423900 

0.3250 

00252DO 

00253 

40271 

m;p 

00051RD 

v\miiF 

00140DO 

t v v3 i i, j. 

04121 

40 129 IF 

0013400 

4014300 


0014500 

,:>ns7 

43182IF 

0018400 

00195 

04214 IF 

0021 600 

04245IF 


0024700 

:<32ia 

00279IF 

»\323iDf' 

■44235 

00291 



IA2 

J0051RD 

if 

00480DO 

Jv3»33 r >DO 

04104DO 

04155IF 

4015800 

00174DO 


0018900 

M2Z21P 

0020500 

Jv3218DO 

44227IF 

4423000 

00237 

,3423500 


00250 

w >3 2 5200 

00253 

tJv327I 




y\2P 

00051RD 








NU. 

00027,10 

CJB7SIF 

0408200 

^U31IF 

0413700 

00 155 IF 

0017000 

04242IF 


0020900 

A3227IF 

0023200 






sw 

00027RD 

&W71* 

402 59 IF 

JJ2 r >230 

0,3271 

84307IF 

04309DO 


NX 

0O029RD 

JW31RD 

0403 3RD 

itfd35RD 

04J37RD 

00039RD 

0004 1RD 0004 3RD 
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33345RD 30347RD 

33349RD 0325" RD 

33 3 5 3RD 

33355RD 22257RD 33359RD 


33 3 5 3RD 

2J265RD 

23367RD 

33369RD 

23273 s 

33272WR 

233 131 F 3J317IF 


33 3 2 S-. R 







NXC 

33227RD 33371 

3337 31 F 

3337500 

33376D0 

v>3 a 3 x 

3313200 23111 


0011200 

23121 

33122DO 

2313300 

33135 

33144 

33145 23157 


OOi^JlF 

331 6 4 DO 

33185 

33195 

33232IF 

33234DO 

33217 33227IF 


0022500 

2.123500 

23240 

33259IF 

232 6 IDO 

33273 

33274IF 33276DQ 


00202 

33205 

33291 





NXS 

00027RD 







NY 

33 34 3RD 33345RD 

33347RD 

3334SRD 

33351RD 

33353RD 

33355RD 33357RD 


33 3 5 3RD 

23355RD 

33357RD 

32369RD 

23271= 

33272‘.'R 

33 3 2 51 F 23329IF 


33337WR 







NYO 

33J27RD 

33 118 IF 

3312300 

2315600 

333.9400 

23273 

33288IF 3329300 

MYS 

33327RD 

20 162 IF 

201 651X5 

23186DO 

33196DO 

33236 

33219 33225IF 


23236DO 

30237 

23249DO 

33253 

33253 

33271 

32294IF 33296DO 


33299 

33331IF 

23 3 3 300 

•33334 

33313 



NZ 

33327RD 

3.111/100 

33121 

33156DO 

33194DO 

23273 

33235DO 33291 


332SGDO 

33334 

3031,1 





TITLE 

3333 ID I 

3.1 31 PRO 

23269WR 





XIM 

33 3.1 3D I 

22322RD 

3.3387 

23135 

33175 

33189 


XI 

33337DA 

3315SWR 






it! 

23335’, *-'R 

33329* 






1.13 

33375DO 

33376DO 

23293GT 

33396* 




12 

23312VR 

33313* 






14 

33.11 r \vR 

33317* 






163 

33134DO 

3,1135* 






173 

33I23DO 

3313700 

33137GT 

33139* 




175 

.I3.19RGT 

23113* 






18.1 

.13 11. IDO 

33112DO 

33115GT 

33117* 




193 

3312.230 

33122DO 

2.11 2 SGT 

33127* 




23 

33v513RD 

33314RD 

00 21 3RD 

23319* 

33259VR 



2.13 

02119GT 

23123* 






213 

331 3700 

3013 0* 






22.1 

3.113300 

32 134D0 

33142CT 

23142* 




233 

33374GT 

23132GT 

23143* 





243 

0314200 

3.1145DO 

23152GT 

23154* 




245 

23133GT 

23155* 






25 

3332. KR 

23.121* 






253 

33 IS'’ DO 

33159* 






263 

33172DO 

33171* 






27.1 

3316000 

33172* 






233 

33174D0 

23175* 




ORIGINAL PAGE IS 

293 

33167GT 

33176* 




OF POOR QUALITY 

3/5 

33322RD 

23323* 






333 

20164DO 

•0316500 

33173GT 

331S3* 




313 

33 16 1ST 

23181* 






323 

2018800 

23189* 






33.1 

331 S'! DO 

20186DO 

23 19 1ST 

33193* 




335 

03183GT 

03194* 






343 

33194DO 

23 196DO 

3.5I9CGT 

23233* 




353 

32183GT 

33221* 






363 

.1323800 

23239* 






373. 

222.54DO 

2323500 

00211GT 

23213* 




3C3 

33233GT 

33216* 
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393 00215D3 0021ODO 00221GT 33223* 

395. 00215GT 33224* 

43 33324DO 33373* 

433 J3232DO 33233* 

413 3022900 33233DO 33234* 

423 33239DO 33243* 

433 33235DO 30235DO 33242GT 33244* 

443 3322MT 33247* 

45 33325RD 33371* 

453 33252DO 33253* 

4-53 00247DO 33249DO 00255GT 33257* 

473 302250? 03245GT 33253* 

483 002-51DO 30232DO 33205.,? 33257* 

493 03253GT 33258* 

53' 3308200 33333* 

530 00272WR 30273* 

510 0027500 30277* 

520 00275C7 30270* . . , ■ . , 

530 032O1DO 30233* 

540 30 2803? 03234* 

550 03285DO 30287* ' 

553 00290DO 33292* 

570 302O9GT 00293* 

500 03295DO 00297* 

590 00295GT 00293* 

50 00033DO 30084* 

•500 03293DO 30300* 

510 30333DO 30305* 

520 00332ST 30305* 

530 30339DO 33311* 

540 00308GT 00312* 

550 00315-f'R 30315* 30319/'R 0032SWR 0032OWR 0033IWR 00337, \R 

550 30318GT 33322* 

570 0031407 30324* 

•580 30321GT 3032X " 00225* 

590 003303? 30334* 

70 3043 500 03307* 

700 J03273T 33333* 

710 333330? 00335GT 00337* 

80 00379GT 00339* 

90 33094WR 00055* 00109’.*, ! R 00113*;R 00123VR 00i4iWR 30153'XR 0015SV’R 

00159WR 00179WR 30192WR 00199WR 00212NR 0022ZVR 0024?*'R 0025SWR 
C0255WR 002-5&VR 
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* 1 , 3*315 
*3,3*317 23 
C 

00010 

0J3I9 


BLOCK 10 - CLOSED LOOP SYSTEM PERFORMANCE ANALYSIS 
DIME'S ION Fl-AME (4 ) /1TLME-/ (5 ) 

INPUT MATRIX ARRAYS 

DIMENSION G >1(15, 15) ,CD(5) ,A(30,30) ,TZ(15,15) ,RD(15) , 

+ !3F(I5,15) ,nR(3v?,15) ,DF (5,15) ,H(15,15) ,CF(5,15) 

OUTPUT MATRIX ARRAYS 

DIMENSION CV (3,3, 33) ,CW(33, 30) ,COVYU {35, 35) 

WORKING SPACE 

DIMENSION DU*WY (35,33) , ARRAY ( 9 $$) , I ARRAY (9.3.3) ,<3»'(30, 33) , 

+ QV(30, 30) ,E(33, 33) ,XF(33, 30) ,TR(35) ,YU (35,33) , 

+ SCALE (33) 

ECU I VALENCES 

EQUIVALENCE (YU, A, ARRAY. IARRAY) , (COWU ,XF) , (COVYU (25, 2G) ,T2) , 
+ (CCVYU(i,32) ,DF) , (QV,;.7-) , (DUMMY, E,HR) , (H,BF) , 

+ (TZ , CF) , (GM , XF) , (SCALE , RD) 

co:mon/Nomamc/ NDIM 
FATA 

DATA IIM, IOt;r, IPFIN, IPFO'JT /5, 7, 23, 21/ 

DATA L\STT r ),TTLNE\,Ii,R0 ,1903 /123,' "" ',4*' ',1,0., 900/ 
READ FILE NAMES 
WRITE (iour, 10) 

FORMAT (20X, 'STOCHASTIC PERFORMANCE ANALYSIS - BLOCK 10', 

4- /,2X,' INPUT PROBLE4 FILE NAME ? ’,$) 

READ (UN, 20) ( FRAME (I) ,1=1,4) 

CALL ASSIGN ( I PF IN , FNA.ME ) 

WRITE (I OUr, 12) 

FORMAT (2X, 'OUTPUT FROBLEM FILE NAME ? ',0 
READ ( I IN , 20 ) (FNA V E{I) ,1*1,4) 

CALL ASS IGN (IPFOUT, FRAME) 

FORMAT (5AM) 

READ A!® WRITE PROBLEM FILE 

CALL REs'R ( I PF IN, IPFOUT, 'rTLNEM, 1933, LASTID, ARRAY, IARRAY) 
REMIND I PF IN 

READ THE FOLLCLINO FROM THE PROBLEM FILE: 

DIMENSIONS IDEN=2 
GM MATRIX inCN=25 

TZ ->’ATRTX IDEM-35 

CD VECTOR IDEM=53 

RD VECTOR IDE! ’=51 

DIMENSIONS ICEN=54 
BF MATRIX IDEM=117 

A MATRIX IDEN=120 


00320 
00021 
00022 
00024 
00*525 ' 
0002B 
00030 
00032 
00034 
0,3035 
00039 30 
00039 40 


GM MATRIX inDN=25 

TZ ’>’ATRTX IDEM=35 

CD VECTOR IDEM=53 

RD VECTOR ICSN=51 

DIMENSIONS ICEN=54 
BF MATRIX IDEM=117 

A MATRIX IDEN=120 
DO 30 K =1,200 
READ ( IPF IN , END=40 ) IDEM 

IF (IDEM. EQ. 1) READ (IPF IN) IDEN,NXS,NXC,NU,AW,r-'Z,NYS,NYO 
IF (IDEM. ED. 25) READ (IPF IN) IDEM, NX, NY, ( (GM (I, .7) ,J=1,NY) ,1=1, MX) 
IF(IDEN.E>D. 34) READ (IPF IN) IDEM, NX, MY, ((T7.(l,J) ,J=1,NY) ,1=1, MX) 
IF(IDEN.EQ. 49) READ (IPF IN) IDEM, NX, (CD (I) ,1=1, NX) 

IF (IDEM. EO. 50) READ (IPF IN) I DEN, MX, (RD(I) ,1=1, MX) 

IFdDSN.EO.53) READ { I PF IN ) IDEN,Ml,«lP f M2,M2P 

IF ( IDEM . EQ. 115 ) READ (IPF IN) IDEM, NX, MY, ( (i3F(I,J) ,J=i*NY) ,1=1, NX) 
IF ( IDEM . EQ. 119 ) READ ( I PF IN ) IDEM, NX, NY, ( ( A( I , J ) , J=i , NY) , 1=1 , NX) 

ccmtimue 

REMIND IPF IM 


155 


RT-il INDEX V03 SOURCE LISTING 


13-AP1W9 03:24: 56 PAGE 0-3002 


00040 

00041 

00042 
00343 


03044 

00045 


NKT^IXS+NJC 

>K=NW-NXC 

:-rroT=f-!xr4Mip 

IDEN=L\STID 

CGM) 

COMPOSE Q-! - { ) QD (0;4? 0), SOLVE FOR CW AND ‘'/RITE 

(0 ) 

DO 67 J 1=1, OTOT 
DO S70 J=i,NTOT 


33046 570 C?''(I,J)=0. 

00347 IF(N"V.EQ.0) GO TO 703 

00049 DO 393 I=-I,NXT 

00050 DO 590 J =i , NXT 

03051 DUN =3. 

03052 DO 530 K=i,MV 

03053 530 DU>1=DUM+G '4 ( I ,K) *3*4 ( J , K) *QD (K) 


00054 590 7.v'(I,J)=iXM 


03355 -lDIM=3-0 

00055 CALL LIMSQi (NDI'4,NTOT,, A,QA’*Cs?#E,>;F,TR f SCALE) 

03057 700 IDEN=IDSN+1 

00053 IF(NW.EQ.0) GO TO 735 

03350 WRITE (IPFCUT) IDES, NTOT,MIW f ( (C7(I,.J) ,J=i,NTOT) ,I=i,NTOT) 

03051 DO 704 I=l,wrOT 

30052 704 TR ( I ) =SQRT (0/(1 r I}) 

00053 IDEV=IDEN+1 

03054 '•■'RITE (IPFCUT) IDES,NTOT, {70(1 ) ,I=»i # WTOT) 

330.55 GO TO 70S 

33055 705 WRITE (IPFCUT) IDES,I1, Ti,R0 

33057 IDEN=IDEN+1 

03358 WRITE (IPFOUT) IDES’, T1,R0 

C {0 ) 

C COMPOSE QV - ( ) TZI*RD*TZIT (3 BF7) , SOLVE FOR CV AND WRIT? 

c (EF) 

00359 70? DO 710 I=i, KIOT 

03073 DO 710 J=l, Ni’OT 

03071 710 OV(I,J)=0. 

0-0072 IF(M1.E0.3) GO TO 830 

03074 DO 723 1=1, NZ 

03075 DO 723 0=1, NZ 

30076 720 DUMMY (I,J)=TZ(I,J) 

30077 NDIM=35 

00378 CALL GMIl>IV(i>, , %,N'Z,DUW,TZ,yn,0) 

00079 DO 743 1=1, NZ 

00033 DO 740 J=l , nz 

00381 DU 4=0 . 

03332 DO 733 K=i,NZ 

03033 733 DU'4=DU!-1+TZ ( I , ’< ) *TZ ( J , K ) ‘ A RD (K ) 

30034 740 DUNMY (I,J)=DU>1 

00035 DO 750 1=1, NZ 

03335 DO 753 0=1, NZ - 

00037 750 TZ(I,J)=DUNNY(r,J? 

00033 DO 770 1=1, Mip 

00009 DO 770 0=1, NZ 

30090 DU -1=3. 
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0M91 


DO 780 K=1,NZ 

MX 92 

750 

DU 4=OUM+BF ( I , K) 

0M93 

770 

DUMMY (I, J)=DUi4 



DO 790 1=1, NIP 

XM95 


ii=i4Nxr 

MX9G 


DO 790 J=i,?4iP 

MX97. 


JJ=v7-WXT 

iwm 


DU' 4=0 . 

mm 


DO 780 :<=1,NZ 


00100 

00101 

00102 

00103 

00104 

00105 
00105 

00107 

00108 

00109 


00111 

00112 

00113 

00115 

00117 

00119 

00121 

00122 

00123 

00124 

00125 

00128 

00127 

00128 

00129 

00130 

00131 

00132 


00133 

00134 

00135 
00137 
00139 
00141 
O0113 819 
00144 820 

C 

c 


DUM=DUM+DUMMY (I,K)*BF(J,K) 

QV ( I I , JJ ) =DU 4 
NDIM=30 

CA LL LtMEQl (NDIM , NTOT , A, QV , CV, E, XP , TR, SCALE ) 

IDSN=IDEM+1 

WRITE (IPFCUT) IDEM,NrOT,WOT, ( (CV(I,J) ,J=i,OT0T) ,I=l,OTOT) 

DO 804 1=1, NTOT 

TR(I)=SQRT(CV(I,I)) 

IDEN=IDEM+1 

WRITE (IPFCUT) IDEM, NTOT, (TR (I ) ,1=1, WOT) 

WRITE C0V=CV4CW 
IDEN=IDEN'+1 
DO 810 1=1, WOT 
DO 310 J=i,WOT 

I F ( MW , EG. 0 . AND. M IP . NE . 0) CV(I,J)=CV(I,J) 

I F ( MW. M3 . 0. AND. M IP. EC. 0) CV ( I , J ) =CW ( I , J ) 

IF (NV. EQ.0.AND.M1P.EQ.0) GO TO 315 
I F ( M •; . MB . 0 . AND . M IP . NE . 0 ) C V ( I , J ) =C V ( I , J ) +CW ( I , J ) 

CONTINUE 

’WRITE (IPFCUT) IDEM, WOT, WOT, ( (CV(I,J) ,J=1, WOT) ,1=1, NTOT) 
DO 812 1=1, NTOT 
TR (I )=SCRT (CV (I , I)) 

IDEN=IDEN+i . 

'WRITE (IPFOUT) I DEN, WOT, (TR (I ) , 1=1 . NTOT) 

GO TO 313 . 

WRITE (IPFOUT) IDEM, 11, II, RO 
IDEM=IDEM+1 

WRITE (IPFOUT) IDEM, 11, R0 

CONTINUE 

LASTID=IDEM 

READ THE FOLLOVIMG FROM THE PROBLEM FILE: 

H MATRIX IDEM=27 
HR MATRIX IDEN=28 
CF MATRIX IDEN=I18 
CF MATRIX IDEN=119 
DO 819 <=1,200 
READ ( I PF IN , EMD=3 20 ) IDEM 

IF(IDEM.EQ.25) READ(IPFIM) IDEM, NX, NY, ( (H (I,J) ,J=1,NY) , 1=1, 
IF (IDEM, EQ. 27) READ ( I PF IM ) IDEM, NX, NY, ( (UR(I,J) ,J=1,NY) ,I=i 
IF(IOEM.EQ. 117) READ(IPFIH) IDEM, NX, NY, ( (CF(I,J) ,J=I,.NY),I= 
IF ( IDEM. EQ. 118) READ(IPFIN) IDEM, MX, MY, ( (DF(I,J) ,J=I,NY) ,1* 
CONTINUE 
IDEM=L\STID 

( HR 0} 

FORM YU = ( ) 
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C (DF*H CF) 


00145 


DO 825 1=1, MZ-HM YQ+NtJ 

00145 


DO 825 J =1 , NXT+M IP 

00147 

825 

YU (I, J)=3. 

00148 


DO 338 1=1, UZ+NYO 

00i49 


DO 330 .7=1, MXT 

00150 


YU(I,J)=?!R(I,,7) 

*50151 

833 

IF(N'J.EQ.0) GO TO 870 

00153 


DO 850 1=1, MJ 

00154 


II=I+MZ4NY0 

80155 


DO 250 ,7=1, MXT 

00155 


DUM=0„ 

00157 


DO 340 K=1,NZ 


0E15S 340 0'JM=0U4+DF(I,K)*M(K f J) 

04159 350 YU (I I , J ) =DU"4 

0*5160 IF (MIP. EQ. 0) GO TO 870 

00162 DO 850 1—1,1*?? 

*■50163 II=I-h*JZ-<aIYO 

00164 DO S50 J =1/4 IP 

00155 JJNJ-M-JXr 

‘’3165 350 YU (tI,JJ)=CF(T,J) 

C CO-1PUTE CGVYU » YU*(CW4CV)*YUT AND WRITS 

00167 370 DO S90 I=l,MZ4NYO*UU 

00163 DO 89 0 J =1 , MJfT+M IP 

00169 DIM -3, 


ORIGIN All PAGE IS 
OF POOR QUALITY, ’ 


00180 nTOT-'IZ -t-N YG 4NU 


00178 


DO 838 K=i , MXT+MiP 

08171 

838 

DUM*OUM+YU (I,K)*CV(K,J) 

80172 

890 

DUMMY (I ,.7)=DU'«1 

80173 


DO 910 1=1 , NZ4NY04NU 

0*7174 


DO 918 J=i , NZ+MYO+NU 

00175 


DIJM=J. 

8017.5 


DO 900 K=l,i7XT+MlP 

*70177 

900 

DU'4=DUM4DUv'MY (I , K) *YU (J , K) 

08173 

9i0 

COWU ( I , J) =DU f 4 

88179 


;den=idem+i 


00131 
•50182 
88I83 
00134 
0018-5 920 
00187 
00183 
001 C9 

00190 

00191 

00193 

00194 

00195 930 
00195 
0*5197 
00193 940 
00199 
00230 


WRITE (IPPOUT) IDEM, NOT, ((COVYU(I,J) ,J=i,NTOT) ,I=i,OTOT) 
DO 920 I=I,OTOT 
TR (I J=8, 

IF(COWU (I , I) .GT. 0. ) TR (I )=SQRT (COWU (1,1)) 

CONTINUE 
IDEA— IDuiI+1 

".'.'RITE (IPFO'JT) IDEM, NOT, (TR (I) , 1=1, MITT) 

DO 940 1=1, NOT 

DO 940 .7=1, NOT 

IF(TP.(I) .EQ»0.) GO TO 930 

OOVY’J ( I , J ) =COVYU ( I , J) / (TR (I ) *TR (J ) ) 

GO TO 940 
COVYU (I, J) =0. 

COWU (J, I)=.3. 

COWU (I, I)=i. 

CONTINUE 

IDEN=IDEN4-1 

WRITE (IPFCUT) IDEM, NOT, NTOT, ( (COWU (I, J) ,J=i,NOT) , 1=1, NOT) 
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RT-11 

IMftEX VO 3 CROSS 

mvmm 

:S LTGTI; 

A 

00 00 2D I 00005BQ 

00037RD 

00 05 "AG 

AI.R-W 

0000401 00005130 

0001 SAG 


ASSiCJM 

00012CL ’OOlfCL 



BP 

O.IOOODI 00005KQ 

000359D 


CF 

,3000201 0.300530 

0,5 14 09 D 


cnwu 

0000 3D I 0000520 

.53175* 

ooiorm 


00191* 00197® 

0020, MR 


cv 

0000 3D I 00103AG 
00124 00171 

00109VR 


cw 

0000 3D I OOOHAG 

OOOl.MfR 

00,352 

DF 

000. 3 2D I 00005EC 

00142RD 

00155 

DUM- 

00051® 00053” 

•00054 

00091® 


00093 00095“ 

00100® 

00101 


00171* ,30172 

00175® 

00177® 

cunsv 

00004DI ooo.35r:y 
00172* .1,3177 

00075* ’ 

J007CAG 

H 

.-MJ04DI 00005EO 

00059AG 

00102AG 

FIvWK 

OOOOIDX 00011UD 

00J12AG 

000159D 


000,3201 00005EQ 

00025RD 

00053 

C'-UWV 

00079CL 




fTCJT 


,50107 30114* DOllO »3,.'12>5* 


[ARRAY 

:ccm 


0000201 

00032DI 

ooourd 
oo.wdd 
odoimr 
oo, 39500 
ooioswu 
ooizz-m 

O0145DO 
03113 ’ 
p.iirr-'R 
00191 

ooooar 

00021RC 
00 ‘2 PRD 
00D37RD 
oooi'mr 

WI2SVR 

t.U37TF 

OOU’lWR 

00095* 

ooooxda 

0J0,373\ 

V.30.37DA 

00029RD 

.vnrtii) 

OOOJ7DA 

ooioimr 


•MOOSSQ 

0002520 

3001S9D 

0,5041 

00049DO 

oooc? 

•Ml. ’IDO 

.•’.>12300 

.Ml '*7 

Ml'"*'* 

‘M1P2D0 

.MIPS 

oooosso 

;\3022IF 

00330IF 

C3J43* 

0,?i,M* 

00 12 -MR 

00I3PRD 

03157= 

OOlOi 

OOOliRD 

03.30R.-,R 

00012AG 

00331RD 

o«Jl43nn 

>.M,!1 "AO 

•W122VR 


30 13 ARC 0,3159 
M13SRD 00153 
00325RD M327RD 
3004«X) 00053 
03.571 0307/500 

3033000 3,\3?2 
.Ml 37 3010PRR 

33124 0312 -HR 

0,314800 331 S3 
3 31 "TOO 33171 
00183. .131 3/* IF 

0319-1 00197 

32317AO 

000 2 3RD .3,5024 IF 
033319D 00032IF 
33357* 3201KR 
.5,3105%‘R «V1«)?* 
3.3129* 3313J/R 
0.31 391 F 00I40RD 
001FDWR 20199* 
.3.3154* 3.3159 
AMI SOD 
.W.J13WR 

.33.31 PAG 02019RM 
0003390 00035Rf3 
OOI42RD 

.53 .31c AC 2031, MR 


.1.31 04 IF 
00197 

.3,5224 IF 
00012IF 


0032PRD 00331R.D 
.30.354 ■ ,3,3.3 5J./.1 
0*5 .‘75 .3,3.37900 

,W*-m 3 Hftyirv"3 


MttQU; 


JJ t* 7 <5 
i}.}3?3 

.» i v* * 
u iu 4. 

a:i2"rd 

0.3 IS 300 

2,3172 

.3.3125 


0301.MR OOO'lDO 
.3,3,3791X3 .3.5, 333 
.*.3.39400 ,3,3295 
.3,3114 <3,3115 

A313PRD .‘.*1429.0 


2.’ 179DO 
•VlRfWR 
0.322100 


.‘.*14090 

,5.3150 

.50177 

.3.310900 


.30,352 

.30,304 

,3,3104 

>3012.3 

,/.v 1 4 ?R D 

0.31R2DO 
0 5175 
,3.3 191 IF 


.V.525HD ,3,302 "IF 00027,90 2J222IF 
‘M.33 3RD 00034 IF 03035RD 0.3031IF 
•3.5053* OOOVar OOOHUTt 00*57* 
*..>,*' 9’ 13 00 * , * «3,3 a22’.'R ,30125** 
00132 0913490 00125IF 0013"RD 

03141IF 00,14 ?R 0 .50144* 0.3179* 

00 20 .MR 0020 IDO 092.32aR 
<32153® 00154 


000190'.*, 0,302190 0002 3RD 0202590 0 5927RD 
0003590 2003790 002 3999 001349D 00134RD 

0001,?.* R 22014XT, 03013MR 00 35‘MR 001054R 
0012CWR 00 13. MR 0J181MR OOIRO.VR 00200VH 


020‘2DA 00055XR 00053WR 00121MR 00131MR 00202'R 
0200.YDA 00 01 PAG 

2 59 D 0002X90 002359D 0.3037RD 0,3.34 500 00044 

00054 0004.MR 0007000 00071 00075DD 00075 

OOO'y. OOOP.1DO 000.97 00099.30 00092 000«3 


l » *;VY 3J i{}'* 
*•- w*'*/- i/v7 < > v J 

fe*V» i 4 t > *; J / 
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ooioswr 001:200 

00114 ,3,3115 

03120 

G3122WR 

0J135RD 


C3I3RRD 

CO 14 3RD 

3,11 4 2RD 

0 ,314500 00147 

,7014900 

0,315,3 

331 £590 


Ml 53 

20159 

0015400 

00155 00155 

Mi*8DO 

00171 

03172 


03174DO 

•33223'.*'R 

<30177 

00170 

001C1WR 0,319,300 

00193 

00195 

33195 

JJ 

03.19 7« 

0,3101 

00155* 

,30155 




K 

3G320DO 

,3,105200 

00*353 

00,39200 03333 

00,59100 

0,3,792 

3339900 


031.1,1 

.3013:300 

0015700 00 ISO ,3017.300 

,30171 

0,717500 

30177 

LA5TID 

0/333RD.A 

0001 SAG 

,30043 

,30132 s ,7.3144 




LINEQ1 

03J55CL 

vM103CL 






MR 

CG27CAG 







Ml 

30333RU 

0.3.772IF 






rtip 

.33033RD 

Mi W 2 

033899C 

0,1.39400 0,7,39500 

001 13 IF 

0311 51 F 

30117IF 


001 191 F 

03145DO 


,3015400 .7015900 

0017090 

00175DO 


M2 

33233RD 







M2P 

00333RD 







\T)IM 

ooooacm 

0.3,355* 

0005SVJ 

,70077 » .3.31,32* 

00103AG 



niom\v;s 

003.7 5CV 







NTOT 

;*3242* 

,3.304/500 0004500 

0,3 .3 5. 5 AG ,30,J5r.VR 

00 05 IDO 

03054 V R 

33359DO 


0037000 

0.7 103 AG 

0,3 1-3 SOI 

.3,31,3500 0,n,3?.'/R 

<v:;:do 

0011200 

.73127VR 


0012300 
00 2.1. Ml 

3312 a\R 

00180“ 

aai8lWR ,3018200 

O.llRMl 

.7010900 

,7015390 

MU 

00.723RD 

001/! 51X3 

00151IF 

0015300 .3015200 

0,715700 

0,717390 0,3 17/! DO 


2,318.1 







NW 

,V.323RP 

oo; 1911* 

00041* 

00.347IF 

,’,305200 0,7 ,3 59 IF 

,30 11 31 F 

0011 51 F 

.3311 71 F 

NX 

,3222 3RD 

00.727RD 00329RD 

00.331RD i7v5«335RD 00,337130 00135RD 

03138RD 


03140Rt1 

00142RD 






MXC ' 

G2023RD 

00040 

00041 





MXS 

0332210 

00040 






NXT 

i 

MM2 

30.14990 

*55000 00095 . 

0,3097 

0,314500 

3,114990 


«I55no 

04 IRS 

0,31580/) 

,5017000 0017 5D0 




MY 

W/25RD 

C0327RD 

,30035110 

00037RD .30 1 35RD 

W13SRD 

0314. 3RD 

03132RD 

NYO 

*'M23RD 

»»• n > 

* *ot> 

0O14SDO 

00 14 SIX) 

,1,5154 .30153 

00157DO 

0,317390 

3317400 

MYH 

•MJ21RD 







UZ 

V.U23RD 

•M07400 

■0007500 

ZW7&AG 0007900 

O-JOSODO 

MJ3ZDQ 

MdSSOO 


iW:v^DO 

00 OS 9DO 

SMSino 

00.39900 0014500 

wi5I4 c .TX) 

Ml 54 

03157DO 


.151^3 

001R7DO 

0017300 

0017400 30183 




no 

tY»V/2DI 

03J29RD 

,3,3053 





QV 


0,3.10500 

,30.371* 

,301,31* ,3 3 1,3 3 AG 




£.*/ 

WtMitDI 

iM.HSSQ 

0,3.545* 

,30054* 0,3 05 SAG 




RD 

,V«5w2DI 

,3000500 

■ WM1RD 

00003 




RC.vR 

iVJIWL 







■■RiT 

. >\\W8DA 

. ,V),757\R 

C0.358WR 

0,317S.'.'R 03133WR 

M2J2-VR 



fSCALE 

.VUKDI 

02.3, ^SEO 

' mV 5 'AC 

.30 1,1 3 AG 




SORT 

•W'te. 

vr.UCT 

00124 

00105 




TR 


MiiS'WS 


0.1054WR 00 10 3 AG 

MU7* 


03124* 



,30173* 

00185= 

.3 01 9,7 VP, 0,3 191 IF 

0.3193 



.TTLNETV 

SMCIDI 

MdOCOA 

00 01 BAG 







iTtf.VSKQ 

CC327RP 

00.375 0,3 07 GAG 

13,1107 

'-wV .J 

JM37* 

.33,192 

XF 

iW.V.DI 

*\W5SQ 


MU JAG 




YU 

■MW-IDI 

v\)W5S0 

A3M7® 

0.3150* 00159* 

f t “ «"/* _ 

U4J4, 

33171 

,33177 


3MJ94R 

,30,11.3* 







t6l 






• • 

12 

00013WR 00014* 

23 

OOOllRn 00015RD 00017* 


30 

0002000 00033* 


40 

O0021RD 00039* 


fi 70 

00044DO 00 04 SIX) 00045* 


m, 

0005200 00053* 


.490 . 

000 4 900 0005*000 00054* 


700 

000403? 00057* 


. 704 

0005100 00052* 


705 

OOOSCCr 00055* 

- 

703 

OOOSSGT 00059* 


710 

0003900 0007000 00071* 


720 

0007400 0007500 00075* 


730 

0008200 00033* 


740 

00079DO 0003000 *10084* 

- 

750 

<5008500 0003400 00087* 


7.30 

0009100 00092* . 

♦ 

770 

O0023DO 0038900 00093* 


730 

0009900 00103* 


790 

00094DO 30094DO 00101* 


000 

003733? 00102* 


304 

0O1O4IX) 00107* 

> 

310 

03 11 IDO 0011200 00121* 


312 

001 23DO 00124* 


015 

001100? 00123* 


313 

001270? 00121* 


819 

0013300 00143* 


820 

0O134RD 00144* 

' 

025 

O0145DO 00 144DO 00147* 

: • 

330 

0014300 O0149OO 00151* 

340 

JO 1 5700 0O15S* 


350 

0015300 0015500 00159* 


060 

0O142OO 0014400 00156* 


370 

J0152GT 001610? 0O167* 

nr 

830 

0017000 00171* 


390 

0014700 0014800 00172* 


900 

0017400 00177* 


910 

0017300 2017400 00178* 


920 

0018200 00186* 


930 

001920? 00195* 


940 

0015900 0019000 001940? 


950 

0020100 00202* 
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C 

C 

33331 

33332 
00*303 
00004 
33335 
00006 

C 

00007 

00008 
( 300(39 

C 

C 

C 

C5 

C 

00010 
33311 10 
00012 

00013 23 

00014 
33315 
33315 
00017 
■00019 

00021 25 

00022 25 

00023 

00024 

C 

00025 
33325 33 

33*27 43 
33*528 53 
33329 

C 

33331 

33332 


C 

33333 5 5 

33334 

33335 53 
33335 


RoirriMt: to read problem file and format 

'HIE DATA FOR HARD COPY 

DIMENSION RARRAY (35,35) ,OARRAY<35, 15) ,CLABCL(35) ,RLA5EL(35) 
COMPLEX CMPRAY (15,15) ,BARRAY (15) 

REALMS DBLANK, XDATE (2) ,XTIME 
COMMON/IO/ IIN, IKB . 

DATA BLANK /' '/jDBLANK /' '/ 

DATA I IN, TOUT, IF IN, IFOl/F /5, 7, 23, 21/ 

GET FILENAME FOR PROBLEM FILE 
NDIM=35 
IKB-24 

CALL ASSIGN (l'K3,'KB:/C’) 

CALL DATE (XDATE) 

CALL TIME (XTIME) 

WRITE (IKB, 5) (XDATE (I ) ,1*1,2) ,XTIME 
FCRMAT(23X,A8,Al,5X,A8,/) 

REWIND IKB 
WRITE (IOUT, 13) 

FORMAT (5X, 'PROBLEM FILE NAME ? ',$) OTUOINAi; PAGE IS 

READ(IIN, 23) (CLABEL(I ) ,1*1,4) OF POOR QUALITY 

FORMAT (4A4) 

CALL ASSIGN (IFIN,CLABEL) 

DO 25 K*l,233 

READ ( I F IN , END*25 ) IDEM 

IF(IDEN.EO.l) READ(IFIN) IDEN,N^,N)C,Kll,NN,NZ,NYS,NYO 
IFfIDEN.EQ, 53) READ(IFIN) IDEN,M1,M1P,M2,M2P 
CONTINUE 
REWIND IF IN 

Nxr=Nxs-»Nxc 

NZT*NZ+NYO 

GET INDICES OF ELEMENTS TO BE LISTED 
WRITE (IOUT, 33) 

FORMAT (5X,‘ INPUT INDEX OF EACH ELEMENT TO BE LISTED' /, 

+ 5X, 'ONE PER LINE - LAST INDEX SHOULD BE 3') 

READ(IIN,53) IX 
FORMAT (1 3) 

IF{IX.EQ.3) GO TO 3333 
FORMAT THE LISTING 
REVIND IFIN 



READ(IFIN) IDEN,NX, (CLABEL (I ) ,1*1, NX) 
WRITE ( r KB , 58 ) { C LAB EL { I ) , 1*1 , MX) 
FCRMA7(5X, * ***** ' ,SM,13(/,5X,5A4)/) 
GO TO 43 





1 
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C DIMENSIONS 

00037 70 WRITE (I KB, 75) NX5,NXC,NU,NW,N2,NYS,NY0 

00033 75 FORMAT (5X, 'VECTOR DIMENSIONS : '/, 

+ 7X,’NXS »' ( IV NXC a',13,' NU ■ • r lV NW =',13, 

+ ' NZ »M3 P ' NYS “*,I3,* NYO **',13/) 

00039 GO TO 40 

00040 80 WRITE (IKB,85) M1,M2,M1P 

00041 85 FaiMAT(5X, 'MEASUREMENT PARTITION ; Ml « *,13,' M2 « ’,13,/, 

.♦ 5X, 1 NUMBER 07 FILTER STATES : M1P » »,I3,/) 

00042 GO TO 40 

C MNEMONICS 

0004390 DO 98 L»1,IX 

00044 READ(IFIN) IDEN 

00045 IF(IDEN.NE.IX-l) GO TO 98 

00047 READ ( I F IN ) IDEN, NX, (CLABEL (I) ,I=.i,NX) 

00043 WRITE (II®, 95) (CIABEL(I) ,1=1, NX) 

00049 95 FORMAT (5X,15.\4/) 

00050 93 CONTINUE 

00051 GO TO 40 

C MATRICES 

00052 100 CONTINUE 

00053 IF(NXS.EQ.0.CR.NW.EQ.0) GO TO 1950 

00055 DO 110 L=l, IX 

0005G READ ( IF IN) IDEN 

00057 IF(IDEN.EQ.3) READ(IFIN) IDEN, NX, (CLABEL(I) ,1*1, NX) 

00059 IF(IDEN.EQ. 10) READ(IFIN) IDEN, NX, (RLABEL (I) ,1=1, NX) 

00061 IFtIDEN.EQ.12) READ {IF IN) IDEN, NX, NY, ( (RARRAY(I,J) ,J=1,NY) .1=1', NX) 

00063 110 continue 

00064 CALL MATLIS (13, ‘GAMMAS MATRIX * , NDIM , MXS , NN, RLABEL, CLABEL, RARRAY, 

+ CARRAY, 0) 

00065 GO TO 40 

•00066 120 CONTINUE 

00067 IF(NXS.EQ.0) GO TO 1950 

00069 DO 130 L=l, IX 

00070 READ(IFIN) IDEN 

00071 IFtIDEN. EQ. 10) READ (IF IN) IDEN, NX, (CLABEL (I) ,1=1, NX) 

00073 IF(IDEN.EQ. 13) READ (IF IN) IDEN, NX, NY, ( (RARRAY (I , J) ,J*1,NY> , 1=1, NX) 

00075 13-0 CONTINUE 

00076 CALL MATLIS (9, *FS MATRIX * , NDIM , NX? , NXS , CLABEL, CLABEL, RARRAY, 

+ CARRAY, t’) 

00077 GO TO 40 

00078 140 CONTINUE 

00079 IF(NY3. EQ. 0.GR.NXS.EQ. 0) GO TO 1950 

00031 DO 150 L=l, IX 

00032 READ(IFEN) IDEN 

00033 ’ IFflDEN.EQ, 4) READ(IFIN) IDEN, NX, (RLABEL (I) ,1=1, NX) 

00085 IF(IDSN. EQ, 10) READ (IF IN) IDEN, NX, (CLABEL (I ), 1=1 , NX) 

00037 IFflDEN.EQ. 14) READ(IFIN) IDEN,MX,NY, ( (RARRAY (I, J) ,J=1,NY) ,1=1, NX) 

00039 150 CONTINUE 

00090 CALL MATLIS (9, ’US MATRIX* ,NDIM, NYS, MXS, RLABEL, CLABEL, RARRAY, 

+■• CARRAY, 0) 

00091 no TO 40 

00092 160 CONTINUE 

00093 IF(NXG.EQ.0.CR.NN.EQ.0) GO TO 1950 

1*$L 
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■ — * • ivim VVIUI/J 

W095 DO 170 L*1,XX 

m'Iqv ^D(IFIN) IDEN 

00099 IF(rS*m*?K R J??^ FrN) ID ^N,NX, (CIABELd) ,l»l f nxj 

00101 IF(IDFN*FO*^! SLJn™ 5 IDEN ' NX ' (RLABEL (I) , I«1 , NX) 

00103 170 CONTINUE''* ’ E ‘ ^ IDEN,NX, NY, ( (!WIRAY(I, J) ,J«1,.NY) ,I»1,NX) 

Z " LL MmiS Kf * *NDIM e NJC, MV, RIABEL, CIA8EL, RARRAY, 

00105 GQ TO 40 


0^105 180 CONTINUE 


00109 W lf/™i 0 w' W - EQ ° 0) G0 TO 1950 

00110 READ (IFIN)' IDEM 

00113 IF( ( S*FO*m R ^ D(IFIN> IDEN ^X,(CIABEL(I),I»l, NX ) 

00115 IF fioSj'm* ir IDEN ' NX *(R^EL(I),I»KNX) 

00117 190 CONTINUE ’ IDEN, NX, NY, f (RARRAY{I,j) ,J«1,NY) ,I«1,NX) 

-ns -a 

00119 GO TO 40 

00120 200 CONTINUE 

00123 M ( 210’L=ifi?‘ NYS * EO ' J ) G ° TO 1950 

Alnlz READ (IF IN )* IDEN ' ■& 

00127 \l\mm KS^n!!* ^W*(CIA8H.(I) # W fM c, 

00129 IFdDFw'm*!?! mn ™’ IDEN, NX, (RLABEL(I) ,I«1 NX) 

00131 210 CONTINUE ’ ' (IFIN ^ IDEN, NX, NY, ( (RARRAY (I,J) ,J*l,Ny) ,I*1,NX) 

1“ ““ 

00133 GO TO 40 

00134 220 continue- 

SJS rF(NXCr - E0 - 0 ) ao TO 1950 

00137 DO 230 L=l, IX 

M17Q READ(IFIN) IDEN 

00141 IF(S*m Si Zifp!!! ID EN,NX, (RLABEL(I),I«1 ,nx) 

00143 230 CaiTINUE^* ( IN) IDE ^NX,NY, ( (RARRAY (I, J, ,J«l,Ny),i« i#W{) 

ri 4 ^ ' wLrs ^YT ix ^ 

00145 CO TO 40 

00146 240 CONTINUE 

00149 DO^fSl'S’^*^*^ G ° TO i9M 

00150 READ(IFlN)'lDEN 

00153 IFfrDEN*FO*?M R f^ D(IFrN) 1 DEN, NX, (RLABEL(I) ,I*l >N X) 

Ss7 250 

-isa + CALL — Yr iXS WW ,N.,R ME4CIA9 E L ,^ 

00159 GO TO 40 

00160 260 CONTINUE 

0161 IF (NZ. EQ. 0. OR. NYS . EQ* 0) GO TO 1950 
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00163 ' DO 270 L*1,IX 

00164 READ(IFIN) IDEM 

00165 IF(iDEN.EQ.4) READ(IFIN) IDEN, NX, (CLABEL(I) ,1*1, NX) 

00167 IF(IDEN.EQ.9) READ(IFIN) IDEN, NX, (RLADEL(I) , I»1,NX) 

00169 IF(IDEN.EQ.20) READ(IFIN) IDEN, NX, NY, ( (RARRAY(I,J) ,J“1,NY) ,1-1, NX) 

00171 270 CONTINUE . u „ 

00172 CALL MATLIS (9,'FM MATRIX* ,tOIM,NZ,NYS,RLABEL»CLABEL,RARRA¥, 

+ CARRAY,0) 

00173 GO TO 40 

00174 280 CONTINUE 

00175 IF(NYQ.EQ. 0.CR.NXC.EQ.0) GO TO 1950 

00177 DO 290 L»1,IX 

00178 READ(IFIN) IDEN 

•00179 IF(IDEN.EQ,8) READ (IF IN) IDEN, NX, (RLABEL(I) ,1*1, NX) 

00181 IF (IDEN.EQ.il) READ (I FIN) IDEN, NX, (CLABEL(I) ,1=1, MX) 

00183 IF(IDEN.E(jo21) READ(IFIN) IDEN, NX, NY, ( (RARRAY(I,J) ,J*1,NY) ,I*1»NX) 

00185 290 CONTINUE 

00186 CALL MATLIS(9,*HO MATRIX ' ,NDIM, NYO , NXS , RLABEL, CtABEL, RARRAY , 

+ . CARRAY, 0) 

00187 GO TO 40 

00188 300 CONTINUE 

00189 IF (NYO . EQ. 0. OR. NYS . EQ. 0) GO TO 1950 

00191 DO 310 L*l, IX 

00192 READ (IF IN) IDEN 

00193 IF(IDEN.EQ.4) READ(IFIN) IDEN, NX, (CLABEL (I ) , 1*1 , NX) 

00195 IF(IDEN.EQ.8) RFAD(IFIN) IDEN, NX, (RLABEL (I) ,1*1, NX) 

00197 IF(IDEN.EQ. 22) READ (IF IN) IDEN, NX, NY, ( (RARRAY(I,J) »J=1,NY) ,1*1, NX) 

00199 310 CONTINUE 

00200 CALL MATLIS V‘ J FO MATRIX* , NDIM , NX, NYS , RLA8 EL,CLABEL, RARRAY , 

+ . RRAY, 0) 

00201 GO TO 40 
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00202 320 

00203 

00205 

00206 
00207 
00209 
00211 

00213 330 

00214 

00215 

00216 340 

00217 

00219 

00220 
00221 
00223 
00225 
00227 

00229 350 

00230 

00231 

00232 360 

00233 

00235 

00236 

00237 
00239 
00241 
00243 

00245 370 

00246 

00247 

00248 320 

00249 

00251 

00252 

00253 
00255 
00257 
00259 

00261 390 

00262 

00263 

00264 400 

00265 

00267 

00268 
00269 
00271 
00273 


CONTINUE 

IF(NXr.EQ.0) GO TO 1950 

DO 330 L=4,IX • 

READ(IFXN) IDEM 

IFfIDEN. EQ. 10) READ(IFIN) IDEN, NX, (RLABEL (I ) , 14 , NX) 

IFfIDEN. EQ. 11) READ (IFIN) IDEN,NY, (RLABEL (I ) ,1=4 +NXS,NXS-K'JY) 

IF ( IDEN. EQ, 23) READ(IFIN) IDEN, NX, NY, ( (RARRAY (1 ,3) ,34 , NY) , 1=4 , NX) 
CONTINUE 

CALL MATLIS (8,'F MATR IX ’ , NDI M , NXT, NXT , RLABEL, RLAB EL, RARRAY, 

+ CARRAY, 0) 

GO TO 40 
CONTINUE 

IF (NXT. EQ. 0. CR. Ml. EQ. 0) GO TO 1950 
DO 350 L4,IX 
READ (IF IN) IDEN 

IF(IDEN.EQ. 2) READ (I FIN) IDEN, NX, (CLABEL (I ) , 14 , NX) 

IF(IDEN.EQ. 10) READ(IFIN) IDEN, NX, (RLABEL (I ) ,1=1, NX) 

IFfIDEN. EQ. 11) READ(IFIN) IDEN, NY, (RLABEL (I ) , I44NXS,NXS*NY) 
IFfIDEN. EQ. 24) READ(IFIN) IDEN, NX, NY, ( (RARRAY (I,J) ,34, NY) ,14, NX) 
CONTINUE 

CALL MATLIS (8, ’G MATRIX’ ( KDIM, NOT, NY, RLABEL, CIABEL, RARRAY, 

+ CARR/AY f 0) 

GO TO 40 
CONTINUE 

IF(NXr.EQ«0.OR.f'W„EQ„0) GO TO 1950 
DO 370 L4 , IX 
READ (IFIN) IDEN 

IF{IDEN.EQ.3) READ(IFIN) IDEN, NX, (CLABEL (I ) , 14 , NX) 

IF (IDEN. EQ. 10) READ(IFIN) IDEN, NX, (RLABEL (I ) ,I»1, NX) 

IFfIDEN. EQ. 11) READ(IFIN) IDEM, NY, (RLABEL (I ) ,1=1 4NXS,NXS-*NY) 
IFdOEN.EQ.25) READ (IF IN) IDEN, NX, NY, ( (RARRAY (I, J) ,3=4, NY) ,1*1, NX) 
CONTINUE 

CALL MATLIS (12, 'GAMMA MATRIX’ ,NDIM,NXr,NV,RLABEL,CLA3EL, RARRAY, 

+ CARRAY, 0) 

GO TO 40 
CONTINUE 

IF(NZ.EQ.0.CR.NXr.EQ,0) GO TO 1950 ^01^7; p Arp ... 

DO 390 L=l, IX OF POOR Ot yrrt 

READ(IFIN) IDEN vLALIf . 

IF(IDEN.EQ. 9) READ (IF IN) IDEN, NX, (RLABEL (I) ,1*1, NX) 

IFfIDEN. EQ. 10 ) READ (IFIN ) IDEM, NX, (CLABEL (I) ,1*1, NX) 

IF(IDEN.EQ.ll) READ(IFIN) IDEN, NY, (CLABEL (I ) ,X4+NXS,NXS4NY) 

IF (IDEN. EQ. 26) READ (I FIN) IDEN, NX, NY, ( (RARRAY (1,3) ,34, NY) ,1=4, NX) 
CONTINUE 

CALL MATLIS (8, *H MATRIX’ ,f®IM,NZ, NXT, RLABEL, CLABEL, RARRAY, 

+ CARRAY, 0) 

GO TO 40 
CONTINUE 

IF (NZT. EQ. 0.OR.NXr.EO. 0) GO TO 1950 
DO 410 L=4, IX 
READ (IFIN) IDEN 

IF(IDEN.EQ.7) READ(IFIN) IDEM, NX, (RLABEL(I) ,14, NX) 

IF(IDEN.EQ.8) READ (IF IN) IDEN,NY, (RL\BEL(I ) ,I44NZ,NZ4Y) 

IFfIDEN. EQ. 10) READ (IFIN) IDEN, NX, (CLABEL (I ) ,14, NX) 
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5K5!S'f£'li! READ(IFIN) IDEN, NY, (CLABEL (I ) ,T*l4NXS,NXS4NY) 
CONTINUE LQ * 21 REA ° (Il?IN ^ IDEN » NX " m > ( (RARRAY (I/J) ,J“1 ,NY) , 1=1 , NX) 

CALL MATLIS (9, 'HR MATRIX' ,IDXM,NZT,NOT,RLABEL,CtABEL,RARRAY, 

+ CARRAY, 0) 

GO TO 40 

. CONTINUE , ";• V ' : 

IF (N2T. EQ. 0. OR. NYS.EQ.0) GO TO 1950 
DO 430 L®1 / IX 
READ(IFIN) IDEN 

IF (IDEM. EQ. 4) READ(IFIN) IDEN, NX/ (CtABEL (I ) , 1=1 , NX) 

IF(IDEN.EQ. 7) READ(IFIN) IDEN, NX, (MABEL (I) ,1=1, NX) 

IF(IDEN.EQ. 8) READ(IFIN) IDEN, NY, (RLABEL(I) ,I=i+NZ,NZ+NY) 

IF(IDEN. EQ. 28) READ(IFIN) IDEM, NX, NY, ( (RA7RAY(I,J) ,J^1,NY) ,I=l.NX) 
--.CONTINUE 9 1 

CALL MATLIS (9, 'El MATO IX ' , tOIM , NZT, NYS , RLABEL, CLABEL, RARRAY, 

+ CARRAY, 0) 

GO TO 45 
CONTINUE 

IF(NZ„EQ. 0.CR. NYS.EQ. 0) GO TO 1<>50 
DO 450 L=1 , IX 
READ(IFIN) IDEN 

IF(IDEN.-EQ.4) READ(IFIN) IDEN, NX, (CLABEL(I) ,1=1, MX) 

IF(IDEN.EQ.9) READ(IFIN) IDEN, NX, (RLABEL (I) ,1=1, NX) 

CONTINUE E0 ’ 29> READ(IFIM) IDSN »NX,NY, ( (RARRAY (I,J) ,J=1,NY) ,1=1, NX) 

CALL MATLIS (9 , * E 2 MATO IX', NDIM ,NZ,NYS, RLABEL, CLABEL, RARRAY, 

+ CARRAY, 0) 

GO TO 40 
CONTINUE 

IF (NOT. EQ.tf.CR. NYS.EQ.0) GO TO 1950 
DO 470 L=1,IX 
READfIFIN) IDEN 

IF(IDEM.EQ.4) READ (IF IN) IDEN, NX, (CLABEL (I) ,1=1, NX) 

IF(IDEN.EQ. 10) READ(IFIN) IDEN, NX, (RLABEL (I) ,1=1, NX) 
r^r^ h i* E0 *i 1) READ dFIN) IDEN, NY, (RLABEL (I ) , I=l4NXS,NXS+NY) 
CamNUE^* 30 ^ R EAD(IFIN) IDEN,NX,NY, ( (RARRAY (I, J) ,J=«1,NY) ,1=1, NX) 

CALL MATLIS (9,'E3 MATRIX' , NDIM, NOT, NYS, RLABEL, CLABEL, RARRAY, 

+ .■■■■■■ CARRAY, 0) 

GO TO 40 
CONTINUE 

IF (NZ. EQ. 0) GO TO 1950 
DO 490 L«*l, IX 
READ(IFIN) IDEN 

IF(IDEN.E0.32) READ(IFIN) IDEN, NX, (RLABEL (I) ,1=1, NX) 

CaOTINUF EQ ‘ 34) READ(rFIN) d)EN,MX,NY, { (RARRAY (I,J) ,J=1,NY) ,1=1, NX) 
CALL MATLIS (9, 'TZ mm IX', 

+ NDIM, NZ,NZ, RLABEL, RLABEL, RARRAY, CARRAY, 0) 

GO TO 40 
CONTINUE 

IF(NXT.EO«0) GO TO 1950 
DO 510 L®1, IX 
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00344 

00345 
00347 
00349 
00351 

00353 510 

00354 

00356 

00358 

00359 540 

00360 

00362 

00363 

00364 

00346 
00368 550 
00359 

00370 

00371 560 

00372 

00374 

00375 

00376 

00378 

00380 570 

00381 

00382 

00383 580 

00384 

00386 

00387 
00383 

00390 

00392 590 

00393 

00394 


READ(IFIN) IDEN 

IF(IDEN,EQ. 10) READ(IFIN) IDEN, NX, (CLABEL (I ) , I»1 , NX) 

IF (IDEN.E0.il) READ(IFIN) IDEN, MY , (CLABEL (I ) , I»l4NXS , NXS+NY) 

;; IF(IDEN.EQ.33) READ (IF IN ) IDEN, NX, (RIABEL(I) , I»1 , NX) 

IF ( IDEM. EQ. IX-1 ) READ(IFIN) IDEN, NX, NY, ( (RARRAY (I, J) ,J*1,NY) , 

+ 1=1, NX) 

CONTINUE 

IF(IX. EQ. 36) CALL MATLIS (8/ T MATRIX* 

+ , NDIM , NXT , NXT , RtABEL, CLAB EL, RARRAY, CARRAY, 0) 

IF (IX. EQ. 37) CALL MATLIS (9, 'TI MATRIX 0 
+ , NDIM , NXT , NXT , CLABEL, RLABEL, RARRAY, CARRAY, 0 ) 

GO TO 40 ' ' 

CONTINUE 

IF(M1P.EQ.0) GO TO 1950 
DO S5J L=1 , IX 
READ (I FIN) IDEN 

IF (I DEM. EO. 33) READ(IFIN) IDEM, NX, (RLABEL(I) ,1=1, NX) 

37) READ < IFrM > IDEN, NX, NY, ((RARRAY (I, J) ,J-1,NY) ,1*1, NX) 

CCNriNlJS 

CALL MATLIS (10/ Fll MATRIX' , NDIM, MlP,MlP,RLABEL,RIABEL, RARRAY, 

+ CARRAY, 0) 

GO TO 40 
CONTINUE 

IF(MlP. EQ. 0.CH.M2.EQ. 0) GO TO 1950 
DO 570 L=1,IX 
READ(IFIN) IDEN 

IF(IDEN.EQ. 33) READ(IFIN) IDEN, NX, (RLABEL(I) ,I«1,M1P) . 

+ (CIABEL(I) ,I=1,M2) U 

CONTINUE^* 38> READ(IFIN) IDEN* NX, NY, ( (RARRAY (I, J) ,J=1,NY) ,I=1,NX) 

CALL MATLIS (10/ F12 MATRIX' , NDIM, M1P, M2, RLABEL f CLABEL,RARRAY, 

+ CARRAY, 0) 

GO TO 40 
CONTINUE 

IF(M2. EQ. 0.CR.M1P. EQ. 0) GO TO .1950 
DO 590 L=l, IX 
READ (IF IN) IDEM 

IF (I DEM. EQ. 33) READ(IFIN) IDEN, NX, (CLABEL (I) ,1=1, MlP) , 

+ (RLABEL(I) ,1=1, M2) 

CaS-riNlF EQ ' 39) READ(IFIN) IDEM, NX, NY, ( (RARRAY (I, J) ,J=1,NY) , I*1,NX) 
^CALL^MATLIS U0, 'F21 MATRIX* ,M3IM,M2 # M1P, RLABEL, CLABEL, RARRAY, 

GO TO 40 ' 
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00395 

00398 

00399 

00400 

00402 

00404 


00405 510 CONTINUE 
00407 CALL MAT 


IF(M2. EQ.0) GO TO 1950 
DO 510 L=1,IX 
READ (IF IN) IDEN 

^IF(IDEN. E^33.AND.M1P.NE. 0) READ(IFIN) IDEN,NX, (CLABEL (I) ,I=1,M1P) 

IF ( IDEN. EQ. 33. AND.M1P. EQ. 0) READ(IFIN) IDEN, NX, 

+ (RLABEL(I) ,1=1, M2) 

rSf^’ 401 READ (!F IN) IDEN, NX, NY, ( (RARRAY (I,J) ,J«1,NY) ,I=1,NX) 


00408 GO TO 40 

00409 520 CONTINUE 

00410 IF(M1P,EC 

00412 DO 530 L= 

00413 READ (IF IN 

00414 IE(IDEN.E 

00416 IF (IDEN, E 

00418 IF ( IDEN. E 


CALL MATLIS (10, 'F22 MATRIX* , 

+ NDIM,M2,M2, RLABEL, RLABEL, RARRAY, CARRAY, 0) 
GO TO 40 


00420 630 CONTINUE 

00421 CALL MAT 


IF(M1P„EQ.0.OR.NU.EQ.0) GO TO 1950 
DO 630 L=i, IX 
READ (IF IN) IDEN 

IF(IDEN.£Q. 2) READ(IFIN) IDEN, NX, (CLABEL(I) ,1=1, NX) 

IF(IDEN.EQ. 33) READ (IF IN) IDEM, NX, (RLABEL (I) ,1*1, NX) 

READ(IFIN) IDEN, NX, NY, ( (RARRAY (I, J) ,0=1, NY) ,1=1, NX) 


00422 


00423 540 CONTINUE 


CALL MATLIS (9, *G1 MATRIX' , 

+ NDIM, M1P,MJ, RLABEL, CLABEL, RARRAY, CARRAY, 0) 

GO TO 40 


00424 

00428 

00427 

00428 
00430 

00432 

00434 


00435 650 CONTINUE 
00437 CALL MAT 


IF(M2. EQ. 0.CR.NU.EQ. 0) CO TO 1950 
DO 550 L=l, IX 
READ(IFIN) IDEN 

. IF(IDEN.EQ. 2) READ(IFK) IDEN',NX, (CtABEL(I) ,1=1, NX) 

I F ( IDEN . EQ. 33 . AND. M IP . NE . 0 ) READ (IFIN) IDEN, NX, (RLABEL (I) ,1=1, MlP) 
+ , (RLABEL (I), 1=1, M2) 

IF(IDEN.EQ. 33.AND.M1P.EQ. 0) READ (I FIN) IDEN, NX, 

+ (RLABEL (I), 1=1, NX) 

IF(IDEN.EQ. 42) READ(IFIN) IDEN, NX, NY, ( (RARRAY (I, J) ,J=1,NY) ,1=1, NX) 


00438 


00439 660 CONTINUE 


CALL MATLIS (9, 'G2 MATRIX*, 

+ NDIM , M2, NU , RLABEL, CLABEL, RARRAY, CARRAY, 0) 

GO TO 40 


00440 

00442 

00443 

00444 
00446 
00448 


00450 570 CONTINUE 


IF(MlP.EQ. 0.CR.MV.EQ. 0) GO TO 1950 
DO 670 L=1,IX 
READ (IFIN) IDEM 

IF(IDEN.EQ. 3) READ (IFIN) IDEN, NX, (CLABEL (I) ,1=1, NX) 

IF(IDEN. EQ. 33) READ (IF’ IN) IDEM, NX, (RLABEL (I) ,1=1, NX) 

IF(IDEN.EQ. 43) READ (IFIN) IDEN, NX, NY, ( (RARRAY (I,J) ,J=1,NY) ,1=1, NX) 

r’fVJ'PTMl ft? V t ¥ w / 


00451 

00452 


00452 GO TO 40 

00453 680 C04TINUS 


CALL MATLIS (1 3 , ’GAMMAl MATR IX • 
f t ,M1P,N.V, RLABEL, CLABEL, RARRAY, CARRAY, 0 ) 


00454 

00456 

00457 

00458 


IF (M2. EQ. 0. CR. NW. EQ. 0) GO TO 1950 
IX) 590 L*l, IX 
READ(IFIN) IDEN 

IF(IDEN.EQ. 3) READ (IFIN) IDEN, NX, (CfABEL(I) ,1=1, NX) 
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00462 

00464 

00465 590 

00467 

00468 

00469 700 

00470 

00472 

00473 

00474 
00476 
00478 
00480 

00482 710 

00483 

00484 

00485 720 

00486 

00488 

00489 

00490 
00492 

00494 

00495 730 

00497 

00498 

00499 740 

00500 

00502 

00503 

00504 

00506 

00508 

00510 

00512 750 

00513 

00514 

00515 76a 

00516 

00518 

00519 

00520 

00522 

00524 

00525 


^IF(IDEN^^33.AND.MlP.NE. 0) READ (IF IN) IDEM, NX, (RLAflEL (I) ,I*1,M1P) 
IF(IDEN.EQ.33.AND.M1P.EQ.0) READ(IFIN) IDEN,MX, (RIABEL(I) 1=1 NX) 

SX KM ' 1) RE '' D|I ™ ) 

CALL MATLIS (13, 'GAMMA2 MATRIX' 

+ , NDIM, M2, NW , R LABEL, CLABEL, RARRAY, CARRAY, 0 ) 

GO TO 40 - 

continue 

IF (NZ. EQ. 0. OR. NOT. EQ. 0) GO TO 1950 
DO 710 L=l, IX 
READ(IFIN) IDEN 

IF(IDEN.£Q. 10) READ(IF'IN) IDEN, NX, (CLABEL(I) ,1=1, NX) 

READ ( rFra ) IDEN, NY, (CLABEL (I), 1=1 +NXS,NXS4NY) 
IF(IDEN.EQ.32) READ(IFIN) IDEN, NX, (R LAB EL (I) ,1=1, NX) 

CaS'riMUS EQ ‘ 45 } READ(IFIN) IDEM, NX, NY, ( (RARITY (I,J) ,J=1,NY) ,1=1, NX) 

CALL MATLIS (18, 'REORDERED H MATRIX' 

+ »f®lM,NZ,HXr,FlLABEL,CLABEL,RARRAY,CAIUlAY,0) 

GO TO 40 
CONTINUE 

■IF (Ml, EQ. 0, OR.M1P. EQ. 0) GO TO 1950 
DO 730 L=l, IX 
READ(IFIN) IDEN 

IF(IDEN.E0.32) READ(IFIN) IDEN, NX, (RIABEL (I ) , 1=1 , NX) 

IF(IDEN.E0.33) READ(IFIN) IDEM, NX, (CLABEL (I) ,1=1, NX) 

READ(IFIN) IDEN,NX,NY, ( (RARRAY (I,J) ,J=1,NY) ,1=1, NX) 

CALL MATLIS (10, 'HU MATRIX' 

+ , NDIM, Ml, M.lP,RLABEL, CLABEL, RARRAY, CARRAY, 0) 

GO TO 40 ■ 

CONTINUE _ 

IF (Ml. EQ. 0. OR. M2. EQ. 0) GO TO 1950 p . 

DO 750 L=1,IX 

READ(IFIN) IDEN ' , J<y 

^IF(IDEN.EQ^^AND„M1P.^0) READ(IFIN) IDEN,NX, (CLABEL (I) ,1'=1,M1P) 

IF(IDEN.EQ.33.AND.MiP.EQ.0) READ(IFIN) IDEN, NX, (CLABEL (I) ,1=1. NX) 
IF(IDEN.EQ,33) READ(IFIN) IDEN, NX, (RLABEL(I) ,1=1, NX) 

CONTINUE^* 475 READ(IFm) IDEN, NX, NY, ( (RARRAY(I,J) ,J=1,NY) ,1=1, NX) 

CALL MATLIS (10, 'H12 MATRIX' 

+ , NDIM , M 1 , M2, RLAB EL, CLA8 EL, RARRAY, CARRAY, 0 ) 

GO TO 40 
CONTINUE 

IF (M2. EQ. 0) GO TO 1950 
DO 770 L=i, IX 
READ(IblN) IDEN 

II (IDEN.EQ. 32.AND.M1.NE.0) READ(IFIN) IDEN, NX, (RLABELFI) ,1=1, Ml) 

+ (RL\BEL(I ) ,1=1, M2) 

IF(IDEM. EQ. 32.AND.M1. EQ. 0) READ(IFIN) IDEN, NX, (RLABEL (I) . 1=1 NX) 

I F ( IDEN . EQ. 33 . AND. M IP . HE . 0 ) READ(IFIN) IDEM, NX, (CLABEL (I) ,1=1, MJP) 

+ ^ , (CLABEL (I), 1=1, M2) 

IF(IDEN.EQ. 33.AND.M1P.EQ. 0) READ(IFIN) IDEM, NX, (CIABEL(I) ,1=1, NX) 

171 


j \/%\ X- y 







RT-11 INDEX V03 SOURCE LISTING 10-APR-79 12s 00: 08 PAGE 00010 

00528 IF (IDEM. EQ. 48) READ(IFIN) IDEN, NX, NY, ( (RARRAY (I , J) ,J=1,NY) , 1*1, NX) 

00530 770 CONTINUE 

00531 CALL ‘4ATLIS (10, 'H22 MATRIX' 

+ . , NDIM, M2, M2, RLABEL, CLABEL, RARRAY, CARRAY, 0) 

00532 GO TO 40 

00533 780 CONTINUE 

00534 IF(MW.EQ. 0) GO TO 1950 

00535 DO 790 L=1,IX 

00537 READ(IFIN) IDEN 

00538 IF (IDEN. EQ. 3) READ(IFIN) IDEN, NX, (RLABEL (I) ,1=1, NX) 

00540 IF(IDEN.EQ.49) READ(IFIN) IDEN, NX, (RARRAY(I,1) ,1=1, NX) 

00542 790 CONTINUE 

00543 NC=1 

00544 C [ABEL (1 ) =B IANK 

00545 CALL MATLIS (25, ’Q MATO IX DIAGONAL, FILTER’ 

+ , NDIM , NW, NC , RLABEL, CLABEL, RARRAY, CARRAY, 0) 

00546 GO TO 40 

00547 800 CONTINUE 

00548 IF(MZ.EQ.0) GO TO 1950 

00550 DO 810 L=1,IX 

00551 READ (IF IN) IDEN 

00552 IFvIDEN.EQ.32) READ(IFIN) IDEN, NX, (RlABEL(I) ,1=1, NX) 

00554 IF(IDEN„ EQ. 50) READ(IFIN) IDEN, NX, (RARRAY (1,1) ,1=1, NX) 

00555 810 CONTINUE 

00557 NC=1 

00558 CLABEL(lj=BLAMK 

00559 CALL MATLIS (25/ R MATRIX DIAGONAL, FILTER' 

+ , NDIM,NZ , NC , RLABEL, CLABEL, RARRAY, CARRAY, 0) 

00560 GO TO 40 

00561 820 CONTINUE 

00562 IF(M1P. EQ. 0) GO TO 1950 

00564 DO 830 L-l, IX 

00565 READ (IF IN) IDEN 

00566 IF(IDEN.EQ. 33) READ(IFIN) IDEN, NX, (RLABEL (I) ,1=1, NX) 

00568 IF(1'DEN.EQ. 51) READ (IF IN) IDEN, NX, NY, ( (RARRAY(I,J) ,J=1,NY) ,1=1, NX) 

00570 830 CONTINUE ' 

00571 DO 335 1=1, M1P 

00572 835 RLABEL (I+M1P)=RLABEL (I ) 

00573 NR=2*M1P 

00574 CALL MATLIS (33, 'EULER LAGRANGE SYS MATRIX, FILTER' 

+ , NDIM, NR, NR, RLABEL, RLABEL, RARRAY, CARRAY, 0) 

00575 GO TO 40 

00576 840 CONTINUE 

00577 IF(M2, EQ. 0) GO TO 1950 

00579 DO 850 L=l, IX 

00580 READ(IFIN) IDEN 

00581 IF(IDEN. EQ. 33.AND.M1P. EQ. 0) READ (IFIN) IDEN, NX, (RLABEL (I) ,1=1, NX) 

00583 I F ( IDEN . EQ, 33, AND. M IP . NE . 0 ) READ (IFIN) IDEN, NX, (RLABEL (I ), 1=1, M1P) 

+ , (RLABEL (I), 1=1, M2) 

00585 IF(IDEN.EQ. 52) READ (IFIN) IDEN, NX, NY, ( (RARRAY (I,J) ,J=1,NY) ,1=1, NX) 

00537 850 CONTINUE 

00538 CALL MATLIS (36, ' AUGMENTED GM2*QD*GM2T INVERSE MATRIX’ 

+ , NDIM, M2, M2, RLABEL, RLABEL, RARRAY, CARRAY, 0) 

00589 GO TO 40 
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Mi93 9M CONTINUE 

00591 IF(MlP. EQ.0) GO TO 195.) 

(30593 DO 910 L»1,IX 

00594 MEAD (IFF!) IDEM 

00595 IFdDEM.EO. 33) READ (IFIN) I DEN, NX, {RLABEL ( r ) , I»1 , NX) 

•30597 IP(IDEtf.Q.IX-l) REAiKIPIN) IDEM, NX, ( BARRAY <E ) ,1-1 , NX) 

00599 910 CONTINUE 

0(3600 DO 915 I»J,MlP 

00601 RARRAY (1,1) -CABS (BARRA Y 1 1 ) ) 

00502 915 CARRAY ( 1 , 1) «S7 . 29578 *ATAN2 (AIMAG ((ARRAY (I ) ) , REAL (EARRAY (I))) 

00603 NC*1 

00604 CtAB£L(l)*BlANK 

00605 IF(IX.EQ. 55) CALL HATLIS(29, 'OPEN LOOP EIGENVALUES, FILTER* 

♦ ' , NDIM,MlP,fC,RLABEL,CtABEL,RARTvAY, CARRAY, 1) 

00607 IP(IX.E0.56) CALL MATLtG (31, 'CLOSED LOOP EIGENVALUES, FILTER' 

• ■ ♦ , NDIM,M1P, HE, RLABEL, CLMiEL, RARRAY, CARRAY, 1 ) 

00609 GO TO 40 

»)0610 920 CONTINUE 

00511 XF(J«lP,fXM) GO TO 1950 

30613 DO 930 L»l,rX 

00614 READ ItriN) IDEM 

00615 IFdDEM.EO. 33) READ(IFIN) IDEM, NX, (RLABEL (I) ,I“i,NX) 

00617 IFdDEM.EO. 56) READ(IFIN) IDEM, NX, NY, ( (C4PRAY(I,J) ,J*1,NY) i 1*1, NX) 

00619 930 CONTINUE 

00620 DO 935 1*1, M1P 

00621 DO 935 J«i,MlP 

00602 RARRAY (I , J ) “REAL (G4PRAY (I , J) ) 

00623 935 CARRAY (I , J)*AI«AG (C-1PRAY (I , J) ) 

00624 CALL J4ATLIS (32, ’CLOSED LOOP EIGENVECTORS, FILTER* 

♦ , NDIM , MlP,MiP, RLABFL, RLABEL, RARRAY, CARRAY, 1 ) 

00625 GO TO 40 

00626 940 CONTINUE 

00627 IF(M1P.EO.0) GO TO 1950 ORIGINAL PAGE IS 

00629 DO 950 L**i,XX OF I\X>U Qi’AHTY 

00633 READdFIN) IDEM 

00531 IFdDEM.EO. 33) READ (IF IN) IDEN,NX, (RLABEL.(I) ,X«1,MX) 

00633 IFdDEM.EO. 57) READ (1 FEN) IDEM, NX, NY, ( (RARRAY (I, J) ,J»1,NY) , 1*1, MX) 

00635 950 CONTINUE 

00636 CALL '4ATLIS (32, 'RICCrtTI MATRIX SOLUTIONS, FILTER’ 

+ ,M5IM,MiP,M.‘P, RLABEL, RLABEL, RARRAY, CARRAY, 0) 

00637 GO TO 4.) 

00633 960 CONTINUE 

00539 IF(VlP.EC,t?.CR.Ml,fcQ/0) GO TO 1950 

00641 IX) 970 L*i,IX 

00642 READ (IE IN) IDEM 

00643 IFdCEN.EQ. 32) READ(IFIN) IDEM, NX, (CtABEL(t) ,1*1, NX) 

00645 IFdDEM.EO. 33) .READ (IF CO IDEM, NX, (RLABEL (I) ,1*1. NX) 

00647 IFdDEM.EO. 58) RSAD(IFIN) IDEN, NX, NY, , (RARRAY (I , J) ,J«1 , NY) ,1*1, NX) 

00649 970 CONTINUE 

00650 CALL MATLIS (23, 'K1I GAIN MATRIX, FILTER* 

♦ ,"DIM,M1P,M 1 , RLABEL, CLA3EL, RARRAY, CARRAY, 0) 

03551 GO TO 40 

00652 930 •'0NTINU3 

0*3653 IF(M1P,EO.0.OR.M2.EO.^):GO TO 1950 
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*W>55 DO 993 L“l, IX 

k5kl<>56 READ(IFIN) IDEN 

<33557 IFdDEN.EQ.32.AND.Ml,, HE. 3) READ(IFIN) IDEN, NX, (CtAHKL(I) ,I«l,Ml) 

* , (CLABEL(I),I*1,M2) 

33559 IFdDEN.TO.32.AND.Mi.EO.kl) READtlFIN) IDEN,NX, (CLABEL(I) ,I»i,NX) 

33661 IF (IDEN. EQ. 33) READ(IFIN) IDEN, MX, (RLABEL(I) ,I**i,NX) 

(83663 IF(IDEN.EO. 59) READ(IFIM) IDEN, NX, NY, ( (RARRAY (t,J) ,J“1,NY) ,I»1,NX) 

33655 993 CONTINUE , 

33656 CALL MATLIS(23**K12 GAIN MATRIX, FILTER* 

+ ,M)IM,MlP,M2,niABEL,CLABEL,nARH.AY,CARRAY, il) 

33657 GO TO 4k 1 ) 

33668 1333 CONTINUE 

33669 IF(NXT.EQ.k3) GO TO 195s} 

33571 DO 1313 L n l, IX 

33572 READ(tFIN) IDEN 

336 73 IF( IDEN. EO. 1(3) READ(IFIN) IDEM, NX, (RLAOL'L(r) ,1*1, NX) 

33875 IFdD5N.TO. -H) READ(IFIN) IDEM, MY, (RLABEL(I) , I , *1+NXS,NXS+NY) 

33577 IFdDEN.TO.Cn5) RKAD(IFIN) IDEN, NX, (RARRAY(I,1) ,I"1,NX) 

33679 1313 CONTINUE 

33683 NC®1 

30591 CLABEL(l) "BLANK 

03602 CALL 4ATLIS (27, 'R4S STATE EST ERRCH, FILTER* 

♦ , TOIM , NXT, NO , RLABEL, C LABEL, PARflAY, CARRAY , 0) 

(W633 GO TO 43 

33684 1323 CONTINUE 

0(9965 IF(NXr.EO.fl) GO TO 1953 

3(3997 DO 1(133 L«1,XX 

33588 READ (IF IN) IDEN 

00599 IF( IDEN. EQ* 13) READ(tFTM) IDEN, NX, (RLABEL(I) ,I»1,NX) 

(33991 TFdDEH.TO.il) READ {I FIN) IDEN, NY, (RLABEL(I) , I»inNXS,NXr>+NY) 

11,1593 IF (IDEN. TO. 81) READ(IFIN) IDEN,NX, NY, ( (RARRAY (I, J) ,J»1,NY) , I®1 ,tv’X) 

33695 1333 CCKTINUE 

03698 CALL MATLIS <34, ‘STATE EG? ERROR CCV ’MATRIX, FILTER* 

+ ,hDIM,m%NXT,RIABEL,RLAaEL,ti,AfmY,0''mAY,D) 

*7.3697 GO TO 40 

33598 I34t3 CONTINUE 

(13499 IF(NZT.EO.kl) GO TO 195(9 

*3*37(31 DO 1*35*1 L*1,IX 

(Si57i32 READ (IF IN) IDEN 

*3-37*33 IF(IDEN.EQ.7) READ(IFIN) IDEN, NX, (RLABEL(I) ,1*1, NX) 

33735 IFCIDEN.EQ.8) READ (IF IN) IDEN,OT, (RLABEL(I ) ,I=1+N2,NZ-5NY) 

3373? IFdDEN.EQ.52) READ (I FIN) IDEN, NX, (RARRAY (1,1), I“1,NX) 

03709 1053 CONTINUE 

(5(3713 NC*1 

*7*3711 C LABEL (1) "BLANK 

(iv)" ? 12 CALL •‘lATLIS (28, *Q MATRIX DIAGONAL, REGULATOR* 

+ , NDIM , NZT, NC, RLABEL, CLABF.L, RARRAY, CARRAY, 3 ) 

*3(3713 GO TO 4(3 

’(1714 1*76.1 CONTINUE 
00713 IF(NU.EQ.d) GO TO 1953 

33717 DO 1373 L»1,IX 

33718 READ(IFIN) IDEN 

33719 IF (IDEN. TO. 2) READ ( I F IN) IDEM, NX, (RLABEL { I ) , I s V, NX) 

33721 V dDEN.EQ.63) READ(IFXN) IDEN, NX, (RARRAY (1,1) , I»l, NX) 
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00723 107.3 CONTINUE 

i!0724 NC»1 

00725 C LABEL. (1 )*BtANK 

0072.5 CALL MATLIS(28,'R MATRIX DIAGONAL, PEOJIATO' ■ 

•+ , M)IM , MJ, tC, R[A3EL,CtASEL, RARRAY,CARRAY, 0) 

00727 CO TO 40 

00728 1080 CONTINUE 

00729 IF(NXT.EQ.0) GO TO 1950 

00731 DO 1090 L»1,IX 

00732 . READ(IFrN) IDKN 

00733 IF(IDSN.FO.10j READ (I FIN) IDES', NX, (RtABF,L(I ) , 1*1, NX) 

00735 IF (IDEN.EQ.il) READ(IFIN) IDEN, NY, (RLABEL(I) , I*d+NXO,NXS+NY) 

007.37 IPdDEN.EQ.64) READ (IF IN) IDEN,NX,NY, ( (RARJIAY (I,«J) ,J*1,NY) ,I“1,NX) 

00739 1090 CONTINUE 

00740 f>0 1095 I«l,NXr 

00741 1095 R LAN E L ( I +N XI’ ) M R t AR EL ( I ) 

00742 Nn®3*NXT 

00743 CALL MATLIS (35, 'EULER fACRANGE SYS MATRIX, REGULATOR* 

+ , .‘OIM,Ml,NR, RLABEL,RLABEL, PARRAY,CARRAY, 0) 

00744 GO TO 40 

00745 1100 CONTINUE 

0.3745 IF(NXT.EQ. 0) GO TO 1950 

007413 DO 1110 L°l, IX 

00749 READ (IF IN) I DEN 

00750 IF (I DEN. EQ. 10) READ(IFIN) IDEM, NX, (RLABEL(I) ,1*1, NX) 

00752 IF(IDEN.EQ. 11) READ (I FIN) IDEM, NY, (RLABKLd ) , I*1+NXS,NX:5+NY) 

00754 IF(IDEN.EQ.IX-l) READ (IF IN) IDEN, NX, {{'ARRAY (I) *1*1, NX) 

00755 me cam nus 

00757 DO 1115 1*1, NXT 

00753 RARaAYU,l)<NU3S(8ARRAY{t)) 

00759 1115 C7J(rv\Y(I,l)«57,23578*ATAN2(Ar-AG(KAI^AY(I)) ,REAL(BA»RAY(I))) 

00750 NC«1 ; 

00761 C LABEL { i ) “BLANK 

00742 IF(IX.EQ.66) CALL MATLIS (32, 'OPEN LOOP EIGENVALUES, REGULATOR* 

+ , NDIM , NXT , NC , R LABEL, CLA3EL, RARRAY , CARRAY , 1) 

00764 IF(tX.E0.6?l CALL MATLIS (34, 'Ct/XIED LOOP EIGENVALUES, REGULATOR' 

+ , M)IM , NXT , NO , RLABEL, CLABFL, RARRAY, CARRAY , 1 ) 

00766 GO TO 40 

00767 1140 CONTINUE 

007-48 TF(NXT.EQ.0) GO TO 1950 

00770 DO 1150 L*1,IX 

00771 RKAD(IFIN) IDEN 

00772 IF( I DEN. DO. 10) READ (IF IN') IDEN, NX, (RIABEL(I) ,1*1, NX) 

00774 XFdOEN.EQ. 11) READ (IF IN) IDEM, NY, <RLW.L(I) ,I»1WXT>,NXS4NY) . 

00776 IFdCSN.EQ. 67) READ (IF IN) IDEM, NX, NY, { (C-irRAY{I,J> ,0*1, NY) ,1*1, NX) 

00772 1150 CONTINUE 
00779 DO 1155 I«i,NXT 

00730 DO 1155 0*1, NXr 

00781 RARRAY ( I ,-J ) »RFAL (CM PRAY ( t, J ) ) 

00782 1155 CARRAY(l,J)».M'4AG(CMfmY(I,0)) 

00783 CALL NATHS (35, ‘CLOSED LOOP EIGENVECTORS/ REGULATOR* 

■ > , NDIM , NXT , NXT , RLABEL, RLABEL, RARRAY, CA!vtAY, 1 ) 

00784 GO TO 40 
00735 1160 CCHTIN'fiJ 
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00705 

00788 

00709 

00790 

00792 

00794 

00795 
00797 

00799 

00799 

00800 
00802 
00903 
00804 
00905 
00808 
00810 

00312 

00313 

00314 


1170 


1180 


1193 


IF(NJCf.EO.O) GO TO 19S0 
DO 1170 L=1,IX 
READ ( IF W) IDEN 

IF(IDEN.EO.IO) READ (I FIN) IDEN,MX, (RLABEL(I) ,1*1, NX) 

IF(IDEN.EQ. 11) READ (I FIN) I DEN, NY, (RLABEL(I) ,I«l-tNXS,NXS+NY) 
IF(IDEN.EQ, 58) READ (I FIN) IDEM, NX, NY, ( (RARRAY (I , J) ,J»1,NY) ,1*1, NX) 

coi i* y wub* 

CALL MATLIS (35, 'RICCATI MATRIX SOLUTION, REGULATOR ' 

+ . ,NDIM,NXT,NXT,nLABEL,RLABE;L, RARRAY, CARRAY,0). 

GO TO 40 
CONTINUE 

IF(NU.EO.O.Cn.NXr.EO.O) GO TO 1950 
DO 1190 L»l, IX 
READ (IF IN) IDEN 

IF (IDEM, EO. 2) READ(IFIN) IDEN, NX, (RLAJ3EL(I) , I«1,NX) 

IF(IDEN.EQ.IO) READ(IFIN) IDEM, NX, (CLABKL(I) , I : 4,NX) 

IF(, IDEN.EQ.il) REAp(IFIN) IDEM, NY, (CLABEL(I) , I*1+NXS,NXS+NY) 

IF ( IDEN. EQ. 59 ) READ ( IFIN ) IDEN, NX, NY, ( (RARRAY (I,J) , J«1 , NY) ,1*1, NX) 
CONTINUE 

CALL MATLIS (21,' RECULATCR GAIN MATRIX' 

+ ,NDIM,MJ,NXr,niJ\BEL,CLABF;L, RARRAY, CARRAY,0) 

GO TO 40 
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0081 5 120* CONTI WE 
M3 1 6 IF(»XP.EQ.0) GO TO 1950 

0*1818 DO 1210 L*1,IX 

00319 READ(IFIN) IDEM 

00820 IF(IOEN.EO.W) READtlFIN) IDEM, NX, (RLABtt(I) , M,WX) 

00822 IF( tDEN.EQ.il) READ (IP IN) IDEM, NY, {RLAHEt <l> ,I*i«NXS,NXS<NY) 

00324 lFdOEN.EQ.45) READ(IPIN) IEO»NK*(8ARRA¥(X ),I»l, NX) 

M826- IP( IDEM. EQ» IX— 1 ) REAO(IFIN) IDEM,MX#NY, ( {CMWAV(I,J) ,J*1,N¥) # 

T wl *J V I * 

23828 1213 CONTINUE 

mw !<*.i ■■■ %' .'' ‘~ y %. %M p | 

•M 330 DO 123,2 1 * 1 , NXT 

00831 lPfAIYAC(BARRAV(I))-.LT.3.)- GO TO 1212 

v*0833 X»K+l 

22334 0ARRAV(K)*8AJ-SIAY (I) 

22335 1212 CONTINUE 

22935 L*(tDf.N-50)/3 

22337 SRITE(IKB,1213) RARRAYO.) 

22933 1213 FORMAT(5X, 'NORMALtLED P MATRIX SENSITIVITY TO EIGENVALUE i 


* 2011.3/) 

00939 TO 1215 1*1# NXT 

00840 DO 1215 j«l#NXr - 

00841 RARRAY (t,J) ei CABS{C4PRAY(I,J)) 

00842 1215 CARRAY (I,J)»57. 29570 *ATAN2 (AIMAC (CMPRAY (t # J ) ) , REAL (CMPRAY (I ,.!))) 

00843 CALL MATLIS (8 , DB LANK, NDIM , NXT# NXT, MABEL# RtABEL, RARRAY , CARRAY # 1) 

00344 00 TO 4.1 


0O94S 122.1 CONTINUE , 

00346 IF(NXT.,EO.0.CR.NU.£Q.0) GO TO 1951 

00848 DO 1230 L*l, IX 

00349 READ (IF IN) I DEN 

0O9S0 1F(IDEM.EQ. 2) READ(IFIN) IDEN.NX, (CLABEL(I) ,I*1,NX) 

00852 IF(I0EN.EQ.1»5) READ(IFIN) IDEN,NX, (RLABEL{I) ,I*1»NX) 

.3*1854 IF( IDSN.EQ.il) 'READ (IF IN) .IDEK',W,(RtABEL(n ,I»i«NX5,MXS*N¥) 

00855 IFdDEN.CQ.r/,) READ(IFIN) IDEN,NX,{BARRAY(I ) #I”1#NX) 

008S8 IF(IDEN.EQ. IX~i) READ(IFIN) A DEN,KX,W, ( (CM PRAY U#J) ,J*1,NY) , 

+ 1*1, NX) 

*3.184.1 1233 CONTINUE 


0*3951 *>0 

00862 DO 1232 1*1, NXT 

00843 IFvAIMAG(BARRAY(I)) .LT.O.) GO TO 1232 v( t-U |*\v.krt 

00855 K«K+1 . . <lM< ' r .~ y 

*30945 BARRA Y/X ) “BARRA Y ( I ) yf WviV.*Ul 

00357 1232 CONTINUE. 

00859 L»(IDGN-59)/3 

00849 R'RITF (I KB, 1233) RARRAY (L) 

*30370 1233 FOIMATfSX, 'NORMALIZED G MATOIX SENSITIVITY TO EIGENVALUE i *, ' 


♦ 20,11.3) 

00971 DO 1235 1*1, NXT 

00372 DO 1235 .1*1, MJ 

00973 RARRAY (I , J-)*CABS (CMFRAY (I, Jl ) 

*30874 1235 CARRAY ( I , J 1 *57 . 29578*ATAN2 (AIMAG {CXPRAY ( I , J) ) ,RLAL(C4PRAY{I,J1)) 
00375 CALL KATLIS (8 , COLANX, M) IM , NXT , NU, FIABEL, CLM5EL, RARRAY, CARRAY, I) 

00875 CO TO 40 

00877 1240 .CONTINUE 

177 .. 


RT“i ; 

mn 

mm 

00892 

00384 

00883 

00890 

00892 

00893 

00894 

00895 
03897 
00393 
130899 
0U93J 
009.31 

00902 

00903 

00904 

00905 

00906 

00907 
00903 

00909 

00910 

00912 

00913 

00914 
30916 

0091 5 

00919 

00920 

00921 

00922 

00924 

00925 

00926 
00928 
00930 

00932 

00933 

00934 

00935 

00936 
00939 

00939 

00940 


l INDEX V*!3 SOURCE LISTING 13-APR-79 12:00* 03 PACK 00016 

ifcnu.cq. o.or.nxt.cq.o) go to 1950 

DO 1250 L«*l, IX 
READ(IFIN) IDEN 

IF(IDCN.C0.2) READdFIN) IDEM, NX, (!UA8EL(I) ,1*1, NX) 
IF(IOEN.EQ.IO) READ(IFIN) IDEM, NX, <CLASCL(I) , I«1,NX) 

IF( IDEN.EQ.ll) READ(IFIN) IDEN, NT, (CLA8EL(I ) ,I*l4NXS,NXS^Y) 
IF(IDGN.KQ.f)S) READ(IFIN) IDEN, NX, (RARRAY (I ) ,1*1, NX) 

IF ( IDEM. EQ» IX-1 ) READ (IF IN) IDEN, NX, NT, ( (CMFRAY{r,J) ,J*1,NY) , 

♦ 1*1, NX) 

1250 CONTINUE 

K«0 

TO 1252 1*1, NOT 

IF(Ar-WG(nARRAT(I)).LT.O.) CO TO 1252 
K“K*1 

RARRAY (K ) “RARRAY (I ) 

1252 CONTINUE 
U(IDEN-70)/3 

WRITE (IKB, 1253) RARRAY (L) 

1253 FORMAT (5X, 'NORMALIZED C MATOIX SENSITIVITY TO EIGENVALUE : » 

+ 2G11.3) 

DO 1255 I«1,NU 

DO 125$ 0*1, NOT 

RARRAY (I ,J)*CABS (OlPRAY(I , J) ) 

1255 CAR RAY (I ,J)*57 . 29578 fc ATAW2 (AIMAG (CMRIAT (1 ,0) ) ,REAL(CMPRAY(I,J)) ) 
CALL MATLIS (8 , CO LANK, IM , MU, NOT, MABEL, C LABEL, RARRAY, CARRAY, 1) 
GO TO U 
1260 CONTINUE 

IF(MIP.FO.O) CO TO 1950 
DO 1270 L*l, IX 
READ(IFtN) IDEN 

IF(IDEN.EQ. 33) READ (IF IN) IDEN, NX, (RLABEL (I) , 1*1 , NX) 

IF(IDcN. CQ. 115) READ(IFXN) IDEM, NX, NY, ( (RARRAY (I, J) ,J®l,MY) , 

♦ 1*1, NX) 

1270 CCWTWU3 

CALL MATLIS (9, 'AF MATRIX* 

+ , r-DIM, M1P,M IP, R1ABEL, RLABEL, RARRAY, CARRAY, 0) 

GO TO 40 
1200 CONTINUE 

IF(MIP.CO.O.OR.NZ.EQ.O) GO TO 1950 
DO 1290 L*l, IX 
READ(IFIN) IDEN 

IF(IDSN. CQ. 9) READ(IFIN) IDEN, NX, (CLABEL(I) ,1*1, NX) 

IF{IDEM.EQ» 33) READ (I FIN) IDEN, NX, (RLABEL (I) ,I«1,NX) 
IFdTON.EO.llS) READ(IFIN) IDEN, NX, NY, ((RARRAY (I, J) ,J«l,NY) . 

+ 1*1, MX) 

1290 CONTINUE 

CALL MATLTS (9, *8F 'MATRIX' 

+ » ‘NQIM , MlP, NZ , RLABEL, CIABEL, RAFUlAY, CARRAY, 0) 

GO TO 40 
1300 Ca.TINUE 

IF(NU.EO*0.ai.MlP,EQ,0) GO TO 1950 
DO mo L*1,IX . 

READ(rFIM) IDEN 

IF(IDF.N.C0.2) READ(IFIN) IDEM, NX, (RLARF.L(I) ,1*1, NX) 

179 


* 






nr-ii 

00942 

30944 

03947 

* 9*3948 

* 3^949 

*5*395.3 

*50952 

00953 

0*3954 

0*5955 

00958 

0096*3 

00951 

00952 

00953 
*30934 
*30955 
*109-57 
00958 
00970 
0*3972 

00974 

00975 
00977 
00970 

00990 

•00932 

00934 

00935 
00987 
00999 

00990 

00991 

00992 
00994 
*10995 
0*1993 
01*303 
01*101 
01002 
01003 
010.14 


INDEX VO 3 SOURCE LISTING l;M\PR-79 12: 00s 08 PAGE 00017 

IFanSN.EQ.33) READ ( IF W) IDEM, NX, (CLABEL (I) ,1*1, NX) 
IF(IDEM.EQ.117) READ (IF IN) IDEN, NX, NY, ( (RARRAY (I , J) ,J-1 ,NY) , 

+ I»1,NX) 

1310 CONTINUE 

CALL MATHS (9 , ' CF MATRIX ’ 

■*• , NDIM , Ml , M.P , RLABEL, CLABEL, RARRAY, CARRAY, 0) 

CO TO 40 

132*3 CONTINUE ' C, 4 . 

TF(MU.EQ.O.at.NZ.EQ.J) GO TO 1953 
DO 1330 L*i,IX 
READ (IF IN) I DEN 

IF (IDEM. EQ. 2) READ(IFIN) IDEM, NX, (RLABEL(l) ,I®1, NX) 
IF(IDBN.EQ,9) READ (IF IN) IDEN,NX, (CLABEL (I) ,1*1, NX) 

IF (IDEM, t:0. 118) READ (IF IN) XDEN»NX,.NY, ( (RARRAk (I,J) ,J»i,NY), 

♦ 1*1, NX) 

1333 CamNUE 

O.LL MATLIS (9, 'DF MATRIX* 

+ ,NDIM,NU, WZ , RLABEL, CLABEL, RARRAY, CARRAY, *3) 

GO TO 40 
1340 CONTINUE 

IF(NXT-HlP.EQ.O) GO TO 1953 
DO 1350 L“l, IX 
READ (IF IN ) IDSN 

IF(IDEN.EQ. 10) READ (IF IN) IDEM, NX, (RLABEL (I) ,1*1, NX) 

IF (IDES'. EQ. 11) READ (IF IN) IDEN, NY, (RLAUEL(I) , X ra l-tNXS,NXS+NY) 
IF( IDEN. EQ. 33) READ (IF IN) IDEM, NY, (RLABEL(I) ,I«i4NXT,NXT-WY) 
IF(IDSN.EQ. IX~1) READ (IF IN) IDEM, NX, NY, { (RARRAY (1,0) ,>1,NY) , 
+ 1*1, NX) 

1350 CONTINUE 

NR^-JXT+MlP 

IF(IX.F.Q.12J) CALL MATLIS (29, ’CLOSED LOOP SYS SYSTEM MATRIX* 

+ , NDIM , NR , NR, RLABEL, RLABEL, RARRAY, CARRAY , *5) 

IF (IX. EQ. 121) CALL MATLIS (25, *COV MATRIX, PROCESS NOISE* 

+■ , NDIM , NR , M3, RIABEL, RLABEL, RARRAY, CARRAY, 0) 

IF(IX.L’Q, 123) CAUL MATLIS (29, 'COV 'MATRIX, MFASURE4 ENT NOISE* 

♦ , M)IM , NR , NR , RLABEL, RLABEL, RARRAY, CARRAY , *3) 

IF(IX. EQ. 125) CALL MATLIS (17, * COV MATRIX, TOTAL* 

*■ , NDIM , MR,!4l, RLABEL, RLABEL, RARRAY, CARRAY, 0) 

GO TO 40 
1350 CCKTINUE 

IF(NXT+M1P.EQ.0) GO TO 1953 
DO 137.3 L*i,IX 
READ(IFXN) IDEM 

IF (IDEM. EQ. 10) READ ( I F IN ) IDEM, NX, (RLABEL (I) ,1*1, NX) 
IFdDEN.FQ.il) READ(IFIN) IDEM, NY, (RLABEL (I) , I a, l-R'1XS,NXS+NY) 
IFdDEN.EQ.33) READ(IFIN) IDEN,NY, (RLABELd ) , I»1-*NXT,NXT+NY) 
IFdDSN.K'. IX-1) READ(IFIN) IDEM, NX, (RARRAY (I » 1) ,1*1, NX) 

1370 CONTINUE 

NR=NXT-mp 
C LABEL (1 ) “BLANK 
NC*1 

IF{ IX. EQ. 122) CALL MATLIS (18, * RMS, PROCESS NOISE* 

+ ,NDI*V«,NC, RLABEL, CLABEL, RARRAY, CARRAY, 0) 

IF(IX.EQ. 124) CALL MATLIS (21, ’RMS, MEASUREMENT NOISE* 


01006 


RT-ll INDEX V03 SOURCE LISTING 
01008 


ld~A PR-79 PACE OOOIR 


+ ,MHM,NR,NC,RIABEL,CIABEL, RARRAY, CARRAY,0) 

IF(IX.FQ.125) CALL MATLIS (10, 'R45, TOTAL* 

* , , NR , ND , RLABEL, CLABEL, RARRAY, CARRAY, l?) 

01010 to TO U « 

01011 nsa ccwmus 

did 12 IF(NZ+NYQ4NU.EQ.O) GO TO 1953. 

31314 DO 1393 L*1,IX 

01315 READ(IFm,END»1392) IDEN 

01016 IF(IDSN.t-Q.2.Af®.NU.NE.O) READ(IFIN) IDEM* NX, (RLABEL (I ) , 

I*HNZT,NZT4NX) 

01018 IF(IDSN.££.8.AND,NYO.NE.d) READ (IF IN) IDEM, NX, (RLABEL(I) , 

♦ I*1+«Z,NZ*NX) 

01020 . IF(IDBM*EQ, 9) READ(IFIN) IDEN, NX, (RLABEL(I) ,I»1,NX) 

01022 IFdDEN.EQ. IX-1) READ(IFIN) IDEN, NX, NY, ( (RARRAY (I ,J) ,J*1,NY) , 

♦ i«i,nx) 

01024 139.) CONTINUE 

01025 1392 NR-NZ+NYO+NU 

01026 IF(IX. EO. 127) CALL MATLIS (27, 'COV MATRIX, QUTPOT+Ca JTROLS * 

*- ,{I>IH,t^R,NR,lUABEL,RtABEL, RARRAY, CARRAY, 0) 

01028 IF(IX. KQ.129) CALL MATLIS (27, c CCR MATRIX, OJTP'JT+CarmOLS * 

+ ,M>IM,NR,t«,RLABEL,RLA3EL,lV\RRAY,CARRAY,0) 

01030 GO TO 40 

01031 1400 CONTINUE 

01032 IF(NZ+NYO+NU.EQ.O) GO TO 1950 

01034 DO 1410 L**l, IX 

01035 READ ( I F IN , END»14 1 2 ) IDEN 

01036 IF(IDEN.EQ.2.AND.MJ.NE.d) READ(IFIN) IDEN, NX, (RLABEL (t ) , 

+ I*l4NZT,NZT+NX) 

01039 IF(IDEN.EC'.S.A^.NYO.NE.O) READ(IFIN) IDEN, NX, (RLABELd) , 

I**14NZ,NZ4NX) 

01040 IF(IDEN.B>.9) READ (IF IN) IDEN, NX, (RLASEL(I) ,1*1, NX) 

01042 IF ( IDEN. EO. 127) READ(IFIN) IDEN, NX, (RARRAY (1 , 1) , 1*1 , NX) 

01044 1410 CCNTINUS 

01045 1412 N.3«NZ+NTO-H4U 

01046 NC»1 

01047 C LAB EL (1 ) — B £ AMK 

01048 CALL '4ATLIS(20,'R:4S, a/TPin’KONTRCLS* 

* , , NR , SC , RLABEL, CLABEL, RARRAY , CARRAY , 0) 

01049 GO TO 40 

01050 1950 WRITE (IKB, 1950) IX 

01051 I960 FCRM AT { l X , 1 P R03 IE 4 FILE ELEMENT ',13,* HAS ZERO DIMENSIONS'/) 

01052 GO TO 40 

01053 3000 STOP 

01054 END 



AW« K 
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AIMAG 00602 00623 00759 00782 00831 IF 0.3842 0t9963ZF *3874 

00895IF 00906 

ASSIGN O0009CL 0OO14CL 

ATAN2 *3902 00759 00842 00374 00906 

RARRAY 00002CX 00593RD 00501 (30602 0O755RD 00753 00759 0082 5RD 

00831IF 00834" 008374R 008S7RD 008S3IF 008S5- 00869WR 003S9RD 
008951F 00898® 0090 1WR 

BLANK 00.J05DA 00544 00553 00604 00591 00711 00725 00751 

01002 01047 

CABS 00501 00753 00001 00873 00905 

CM IRA Y 00001DI 00064AG 00075AG 00090, \G 0vU04AG 0011SAG 00132AG 00144AG 

00158AG 00172AG 00186AC 00200AG 00214.AG 00 2 3 JAG 00246AG O0262AG 

00280AG 00296AG 00310AG 00325AG 00 3 3 PAG 00 35 SAG O03S7AG 00 3 59 AG 

00381AG 00393AG 00407AG 00421AG 00437AG 00451AG O0467AG 0O483AG 

00497AG 00513AG 00531AG 00S45AG O0559AG 00574AG 00538AG 00602® 

00606AG O0608AG 00623“ 00624AG 00636AG 00 55 JAG 00656AG O06O2AG 

M 69 SAG 0071 PAG 00 72 GAG 0O743AG 00759“ O0753AG 00 7 6 SAG 00782“ 

00783 AG 00797AG 0081 3AG 00842® 00843AG 00374“ 0087SAG 00906- 

00907AG 00 91 9 AG 00933AG 00947AC 0.5 961 AG 00 97 SAG O0981AG -00 93 3 AG 

00. 97 SAG 01005AG O1O07AG 01009AG 01027AG 01029AG 01048AG 

C LABEL OO001DI 00O12RD 0OO14AG 00033RD O0O34WR OO047RD O0O4SWR O0O5PRD 

00054AG 00072RD 00076AG 00035RD 00090AG 00092RD 00104AG 00112RD 

0011SAG 00126RD 00132AG 0O154RD 00159AG 00153RD 00172AG 0U82RD 

00185\G 0O194RD 00200AG 00222RD 00230AG 0023SRD 00 2 4 SAG 0O25GRD • 

00259RD 00252AG 00274RD 00276RD 00280AG (302S8RD 00296AG 00304RD 

OO310AG 00 3 IBRD 00 3 2 GAG 0034590 00348RD O0355AG 00357AG 00377RD 

00331AG 003B9RD O0393AG 00401RD 0041 SR D 00421AG 00429RD 0O437AG 

0O445RD 004 51 AG O0459RD 00467AG 00475RD 00477RD 0O483AG 0O493.RD 

00497AG 00505RD 00507RD 00513AG 0052SRD 00527RD 0W531AG 00544® 

0054 SAG 0O558» 00559AG 00504“ 00S06AG OOGOPAG 00644RD O0650AG 

00653RD O0650RD 00655AG 00631® 00882AG 00711® 0071 PAG 00725* 

0J725AG 00751® 007S3AG 0O755AG 00807RD OO309RD 0031 3AG 00851RD 

00 97 SAG 00C35RD 00887RD 009O7AG 00927RD 00 9 33 AG O0943RD 00947AG 

0O957RI) 00 961 AG 01002® 0 100 SAG 010»57AG 01OOSAG 01047* 01O4CAC 

C4PRAY 00002CX 0O518RD 00522 00523 00777RD 00731 00782 00827RD 

00841 00842 00859RD (50273 00874 00391UD 00905 00906 

DO LANK OO003DP 0OOO5DA 00843AG 0O375AG 00907AG 

I 00012RD 00 03 3RD 00034WR 00047RD 00040WR 00059RD 00050RD O0O62RD 

00072RD 00074RD 00004RI) OO035RD O003ERD 0009SRD 0O1OORD 00102RD 

00112RD 00114RD 00116RD 00125RD 00128RD O013ORD 0O14ORD 00142RD 

0O152RD 00154RD 00156RD 00165RD 00168RD 00170RD 001 CORD 00182RD 

00134RD 0O194RD. OvUDoRD 00193RD 00 20 3RD 00210RD 0O212RD O0222RD 

00224RD O0225RD O0228RD 0023PRD 0O240RD 0O242RD 00244RD 00254RD 

0O2S5RD 00253RD 00260RD 00270RD 00272RD 0O274RD 00275RD 0O273RD 

0028SRD O02PORD 00292RD 00294RD 00304RD 00306RD 00308RD 00310RD 

00320RD 00322RD 00324RD 0O334RD 00336RD 0034SRD 00348RD 00350RD 

. 00352RD 00365RD 0O367RD 00 377RD 00379RD 003B9RD 0.5391RD 0O4O1RD 

00 40 3RD 0O4O5RD 00415RD 00417RD 00419RD 00429RD 00431RD 00433RD 

00435RD 00445RD O0447RO 00449RD 00459RD 00451RD 00463RD 00465RD 

0O475RD 00477RD 00479RD 00401RD 0O491RD 00493RD O049SRD 00 50 3RD 

00507RD 00509RD vWSllRD 00521RD 00523RD 0052SRD 00527RD 00529RD 

0053PRD 00541RD 00553RD 0O555RD 00547RD 0O569RD 00571DO 00572 

O0592RD O0S34RD 00585RD O059SRD 00S93RD 0O5OJDO 00601 00602 

0OS16RD .00 51 3RD 0062000 00622 00623 00632RD 00S34RD 00544RD 

iRl 
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00G46RD M 54 PRD 
M578RD 00590RD 
00722RD »M7.34RD 
W755RD P0757DO 
00781 00782 

0031 1RD 0032 IRD 
00839DO 00341 
00352DO 00353IF 
00O37RD 00S89RD 
00905 8891 5RD 

0094 5RP P0955RD 
00993RD 00995RD 
01037RD 01039RD 
IDEN 0001GRD 0001.7IF 
00047RD 0005GRD 
00070RD 00071 IF 

wassiF jaassRD 

00100RD 08101IF 
0011SIP 0011GRD 
00130RD 0013SRD 
00152RD 001 531 P 
00167IF 001G8RD 
00182RD 00183IF 
Ml 97 IF 00198RD 
08212RD 80220RD 
08227IF 0022BRD 
00242RO 00243IF 
M2 57 IF M258RD 
P0272RD C0273IF 
00297IF M2 CORD 
00302RD 00303IF 
00317IF 00318RD 
00332RD 00333IF 
M347IF 80348RD 
00355RD 803GSIF 
00387RD 00383IF 
00402IF 00403RD 
00417RD 00418IF 
C0432IF M433RD 
M447RD 00448IF 
M452IF 00463RD 
M477RD 00 4 78 IF 
M 4 92 IF 00493RD 
00507RD 00 50 31 F 
00522IF 00523RD 
M537RD 00538IF 
88 554 IF 08555RD 
00 581 IF 00582RD 
M59GRD 00597IF 
00530RD 006311 F 
MS45IF 0064SRD 
00G58RD 89 541 IF 
P0G751Y C057GRD 
00692RD 00593IF 


M658RD 00660RD 00552RD 
00692RO 00S94RD 00704RD 
00736RD 00 7 3 PRD 0074JDO 
0/0753 00759 00773RD 

00791RD 00793RD 00795RD 
00 32 3RD 80325RD O0827RD 
00842 00851RD 008S3RD 

00855 00871DO 00873 

00891RD 00394DO 00S95IF 
00917RD 00927RD 00329RD 
00957RD 00959RD M969RD 
00997RD 00999RD 01017RD 
0104 IRD 01 04 3RD 
0001 CRD M019IF 00020RD 
00 057 IF 00053RD 00059IF 
00072RD 00073IF 00074RD 
00087IF C0 08 3RD 00096RD 
00102RD 00110RD 00111IF 
00124RD 00125IF 00126RD 
00139IF 00140RD 00141IF 
00154RD 001 551 F O0156RD 
00159IF 00170RD 00 17 3RD 
001O4RD 00192RD 00193IF 
0020SRD 00207IF 00208RD 
00221IF 00222RD 00223IF 
0023GRD M237IF 0023PRD 
00244RD 00252RD 00253IF 
M259IF 00260RD 00268RD 
00274RD 00275IF 00276RD 
00 2891 F 00290RD 00291IF 
00304RD 80305IF 00306RD 
00319IF 80328RD 00321IF 
00334RD 00 .3 3 51 F 00336RD 
M349IF 00350RD 00351IF 
00357RD 80375RD 0037GIF 
003S9RD 00390IF 00391RD 
M404IF 00405RD 00413RD 
00419RD 00427RD 0042OIF 
00434IF 00435UD 00443RD 
00449RD 00457RD 0045OIF 
00454IF 00455RD 00473RD 
00479RD C0430IF 00481RD 
00494IF 00495RD 00503RD 
00509RD 0051CIF 00511RD 
0.0524IF 8057.5RD 00 52 GIF 
00539RD O0540IF 00541RD 
00555RD 00 5551 F 00567RD 
00 5331 F 00534RD 00585IF 
00593RD P0514RD 00515IF 
00532RD 00533IF 00434RD 
00547IF O0S48RD 00555RD 
00552RD 00.553IF 00554RD 
00 6771 F 00578RD 80G39RD 
00694RD 00702RD 00703IF 
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00554RD 00574RD 00S75RD 
00705RD 0070SRD 00720RD 
00741 0075 1RD 00 7 5 3RD 

00775RD 00777RD 00779DO 
0080ERD 00G37RD 00309RD 
M830DO 00331IF 00334 
00855RD 00357RD 00359RD 
00874 003C3RD 00835RD 

00 599 00903DO 00905 . 

0093 1RD 0094 1RD 0094 3RD 
00971RD 00973RD 00975RD 
01019RD 01021RD 01 02 3RD 

000 3 3RD 00044RD 00045IF 
00050RD 00051 IF 0J0S2RD 
M082RD 00083IF 0vl034RD 
00097IF 00099RD 00099IF 
00112RD 00113IF 0O114RD 
00127IF 80 12 CRD 001 291 F 
00142RD M150RD 00 151 IF 
00164RD 00155IF 00155RD 
00 1791 F 001O0RD 00181IF 
00194RD 00195IF 0019SRD 
80209IF 00210RD 00211IF 
00224RD 00225IF 00225RD 
00 2 391 F 00240RD 00241IF 
00254RD 00255IF 00255RD 
00 2 GOT. F 00270RD 00271 IF 
002771 F 00273RD 0028GRD 
■00292RD 00293IF 00294RD 
00 3 07 IF 00303RD 0031 ^D 
00322RD 00323IF 00324RD 
00344RD M345IF 00345RD 
00352RD 003G3RD 00364IF 
00377RD 00 3781 F 00379RD 
O0399RD 00 4 00 IF 0040IRD 
00414IF 00415RD 00415IF 
00429RD 00430IF 00431P.D 
00444IF 00445RD 0044GIF 
0vl459RD 004G0IF 00451RD 
00474XF 00475RD 00476IF 
00489RD 00490IF 00491RD 
00 5041 F 00505RD 00 5851 F 
80519RD 00S28IF 00521RD 
00527RD 00528IF 00529RD 
00551RD 00552IF 80553RD 
805GSIF 005G9RD 00530RD 
0058GRD 80594RD 005951 F 
00G1FRD 00G17IF 08618RD 
0O642RD 00 54 31 F 08544RD 
08 G 57 IF 00558RD 08 559 IF 
00S72RD 80 57 31 F 80G74RD 
00 5391 F 00S98RD 00591 IF 
O8704RD 0078 51 F M70GRD 
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IFOUT 

IIN 


0O707IF 
0C733IF 
0C751RD 
O0774IF 
0C793RD 
O0808IF 
0082 3RD 
00851RD 
O0859RD 
00887RD 
0091 5RD 
OO 93 OIF 
0094 5RD 
O0957RD 
O0975RD 
00993IF 
01021RD 
01040IF 
00005DA 
O0044RD 
O0074RD 
00102RD 
OO130RD 
O0164RD 
00192RD 
00220RD 
C0242RD 
00270RD 
O0292RD 
O0320RD 
O0348RD 
00379RD 
0041 3RD 
O0435RD 
O0463RD 
0*14 91RD 
00519RD 
O0541RD 
00532RD 
O051CRD 
00554RD 
00 47 3RD 
O0708RD 
00749RD 
O0789UD 
*3031 1RD 
O0353RD 
O0889RD 
0093 1RD 
■O0959RD 
O0995RD 
01035RD 
O0004DA 
00004CM 


0070 3RD 

O0734RD 

00752IF 

O0775RD 

00794 IF 

O0O09RD 

*309241 F 

*308521 F 

00868 

O0338IP 

.3,3 91 61 F 

00931RD 

*30 9 5 3RD 

00 943 IF 

O0991RD 

O0999RD 

01O22IF 

01041RD 

O001^AG 

*30 0 4 7RD 

O0032RD 

O0UORD 

*30138130 

O0164RD 

O0194RD 

O0222RD 

O0244RD 

O0272RD 

0*3294RD 

O0322RD 

O035ORD 

*30397RD 

O0415RD 

0044 3RD 

O0445RD 

00493RD 

O0521RD 

O0551RD 

*3,)504RD 

O0S30RD 

O0553RD 

00603rd 

*3071 3RD 

O0751RD 

*3079lRD 

0081 9RD 

O0S55RD 

00991RD 

O0939RD 

00947RD 

O0997RD 

01O37RD 


0071 CRD 
O0735IF 
*307 5 3RD 
0,3776 IF 
O0795RD 
O0810IF 
O0825RD 
O0853RD 
0088 1RD 
*30889RD 
0091 7RD 
O0939RD 
O0954IF 
O0969RD 
00 992 IF 
O1015RD 
01 02 3RD 
01042IF 
*30O16RD 
O0056RD 
O0034RD 
*30112RD 
O014ORD 
O0163RD 
00194RD 
O0224RD 
00252RD 
00274RD 
O0302RD 
00324RD 
O0352RD 
O0389RD 
*30417530 
O0445RD 
O0473RD 
00495RD 
00 52 3RD 
00 55 3RD 
O0584RD 
00632RD 
O066ORD 
*30 390RD 
00720RD 
00753RD 
O0793RD 
O0S2 1RD 
O0857RD 
*3091 3RD 
O0941RD 
00949RD 
00999RD 
*31039RD 


00719IF 
O0736RD 
00754IF 
O0777RD 
*30 80 3RD 
0081 1RD 
00 82 61 F 
O0S54IF 
*10 8821 F 
O0890IF 
00925RD 
O0940IF 
O0955RD 
O0970IF 
O0993RD 
01O16IF 
01035RD 
01 04 3RD 
00018RD 
O0058RD 
0O 03 3RD 
00114RD 
O0142RI, 
O0170RD 
*3019SRD 
00226RD 
00254RD 
00278RD 
00304RD 
00332RD 
*30 3 5 3RD 
00391RD 
O0419RD 
O0447RD 
*30475RD 
00 50 3RD 
00525RD 
O0555RD 
O0594RD 
0043480 
O0662RD 
00692RD 
0*372 2RD 
O0755RD 
00795RD 
00 32 3RD 
O0859RD 
0091 5R.D 
0094 3RD 
00971RD 
O1015RD 
01041RD 


00720RD 
00737IP 
007 55RD 
O0789RD 
O0804IF 
00319RD 
O0827RD 
00855RD 
00833RD 
O0391RD 
00 92 GIF 
0094 1RD 
O0954IF 
O0971RD 
00994 IF 
01017RD 
01036IF 

O002ORD 
00O40RD 
O0083RD 
O0116RD 
015ORD 
00178RD 
00205RD 
O0228RD 
00254RD 
O0278RD 
O0306RD 
00334RD 
O0345RD 
O0399RD 
*30 4 2 7RD 
00449RD 
00477RD 
O0505RD 
O0527RD 
O0565RD 
00S96RD 
00642RD 
O0S54RD 
O0694RD 
O0732RD 
O0771RD 
0030 3RD 
00325RD 
00S81RD 
00917RD 
0*394 5RD 
*30 9 7 3RD 
01017RD 
01 *34 3RD 


0072 1IF 

00738RD 

O0771RD 

00 790 IF 

00905RD 

O0820IF 

O0835 

00 3551 F 

*30884 IF 

00900 

*3092780 

*30 94 2IF 

00957RD 

O0972IF 

O0995RD 

Olv’ICIF 

01037RD 

000 22877 
00062RD 
O0096RD 
O0124RD 
00152RD 
O018ORD 
O0203RD 
O0235RD 
O0253RD 
0028SRD 
OO308RD 
00334RD 
00367RD 
O0401RD 
O0429RD 
O0457RD 
00479RD 
O0507RD 
O0529RD 
O0 5-47RD 
0059SRD 
O0544RD 
O0572RD 
*30 7*3 28 D 
O0734RD 
O0 77 3RD 
00805RD 
00827RD 
O0883RD 
0092 5RD 
00953RD 
O0975RD 
01O19RD 


O0722RD 
00749RD 
O0772IF 
O0791RD 
O0904IF. 
O0321RD 
0034 9RD 
O0857RD 
O0335RD 
0091 3RD 
O0928IF 
0094 3RD 
O0953IF 
00 97 3RD 
O0S94IF 
01019RD 
01038IF 

00031fW 
00.37ORD 
*30 09 3RD 
O0124RD 
00154RD 
O0182RD 
002i*3RD 
0O233RD 
*3026*3RD 
O0288RD 
*30 3 1 480 
O0344RD 
O0375RD 
00 40 3RD 
O0431RD 
O0459RD 
00481RD 
O0509RD 
O0537RD 
0056SRD 
O0614RD 
O0646RD 
00674RD 
O07*34RD 
00735RD 
00775RD 
O0307RD 
O0349RD 
00835RD 
A1927RD 
O0955RD 
*30991RD 
01021RD 


O0732RD 
00750IF 
O0773RD 
00792 IF 
O0807RD 
0082 21 F 
00850, IF 
00 3 50 IF 
O08861F 
O0914IF 
0*192 9RD 
00944IP 
00959RD 
O0974IF 
00997RD 
O1020IF 
01039RD 

000 3 3RD 
O-0072RD 
001 CORD 
00 12 3RD 
00156RD 
O0184RD 
00212RD 
00240, RD 
O026ORD 
O029ORD 
00318RD 
O0344RD 
O0377RD 
O0405RD 
*30 4 3 3RD 
*30461RD 
O0489RD 
005URD 
00539RD 
O058ORD 
O041O1D 
00 44 3RD 
O0674RD 
007*3 4RD 
0073PRD 
0O777RD 
00809RD 
00851RD 
O0387RD 
*3*192980 
00957RD 
0*5 993 RD 
*31 02 3RD 


00006DA O0012RD O0027RD 


RT-U INDEX V03 CROSS REFERENCE LISTING 10-APR-79 12:00:08 PACE 00022 


TO 

IOUT 

IX 


MATLIS 


)4l 


MlP 


00004CM 
00859WR 
00004CN 
00M5DA 
00027RD 
0009500 
00203)0 
00 3 3 IDO 
00393DO 
0051PDO 
00107IF 
0071 7D0 
0080200 
0092400 
009S4IF 
01024IF 
00082RD 
O0170RD 
8D294RD 
0040SRD 
00529RD 
M 54 SRD 
00795RD 
00373 
0094 SRD 
000 1 5D0 
•00897® 
.0004 300 
00143)0 
00267DO 
00 3 85DO 
00502DO 
00(323)0 
0074 8D0 
00898® 
00952DO 
00044CL 
00172CL 
O0295CL 
O0393CL 
00513CL 
O0424CL 
0074 3CL 
00907CL 
00985CL 
00020RD 
00 82 21 F 
00020RD 
00389RD 
00431RD 
00497AG 
00571DO 
00506AG 
00G39IF 


00008*0 00009AG 00034WR 0003WR 0004 0WR 0004 0033 MR 
00901WR OlOSiMR 


*301 0WR 
00029IF 
00109DO 
00219DO 
00343DO 
00412DO 
0053600 
00513DO 
00 7 3 IDO 
00318DO 
00938DO 
0093.500 
01O28IF 
00074RD 
00184RD 
0030 3RD 
0041 3RD 
00569RD 
00544RD 
0031 1RD 
00874 
00953RD 
00829® 
00899 
0005I5DO 
00 16 300 
00285DO 
00398DO 
0051800 
0084 IDO 
0077000 
00869WR 
00956tX) 
0007GCL 
00186CL 
00310CL 
00407CL 
00531CL 
00S38CL 
00783CL 
00919CL 
01005CL 
0004 0WR 
00539IF 
0004 D.V R 
00393AG 
00432IF 
00 5041 F 
00572 
00 50 SAG 
00 5 50 AG 


m2SiR 
00032GT 
0012300 
00235DO 
00351IF 
0042600 
*355000 
*352900 
0074 8D0 
00326IF 
0095200 
00 993 IF 
01 03 400 
00-083RD 
0019SRD 
00324RD 
00 4 3 SRD 
00586RD 
00694RD 
00827RD 
00391RD 
00 97 SRD 
00833= 

0005900 

00177DO 

003011)0 

0041 2D 0 

00535DO 

00555DO 

0073SOO 

00880DO 

*399000 

00090CL 

00200CL 

00 326CL 

00421CL 

00545CL 

00550CL 

00755CL 

0093 3CL 

01007CL 

004 8 51 F 

0O65OAC 

O0360IF 

00 4 00 IF 

O04 4 OIF 

005O5RD 

O0573 

0051 IIP 

O0 653 IF 


0004 3D0 
00137DO 
00251DO 
0O354IF 
00442DO 
O0564DO 
00 64. IDO 
O0754IF 
0084 8D0 
0094600 
01004IF 
01050WR 
00102RD 
00212RD 
0O336RD 
00 4 4 3RD 
OO 51 CRD 
O073PRD 
00340DO 
O0904DO 
01 02 3RD 
00834 

000S1DO 

00191DO 

O0315DO 

00426DO 

0055v3DO 

00 a? IDO 

00802DO 

00900b 

01O5.4DO 

00104CL 

O0214CL 

00338CL 

O0437CL 

O0559CL 

00546CL 

O0733CL 

O0947CL 

O1009CL 

O0497AG 

00S57IF 

O0369AG 

00401RD 

00451AG 

00 506I F 

00 581 IF 

O052ODO 

O0656AG 


00O45IF 
0014900 
O0267DO 
00 3 551 F 
0O455DO 
O0579OO 
0O555DO 
O0762IF 
O0858IF 
O0974IF 
01O06IF 

O011RRD 

*3 22 SRD 

00352RD 

O0455RD 

O0621DO 

00777RD 

00341 

00905 


*305500 
0O163DO 
0028500 
00 3 6200 
•00 4 72DO 
O0593DO 
O0671DO 
00764 IF 
0088ODO 
00978IF 
01008IF 

00130RD 
O0244RD 
00357RD 
O04 BIRD 
00622 
00780DO 
00842 
0090S 


00059DO 
00177DO 
•00 39 IDO 
0037400 
00488DO 
00 5971 F 
O06S7DO 
0077000 
0t3 8 90 IF 
O0930XF 
01O14DO 

O0142RD 

0025.3RD 

00379RD 

O0495RD 

O0S23 

00781 

00859RD 

0091 trd 


00081DO 
O0191DO 
0031500 
003S6DO 
005.32DO 
O0605IF 
0070 IDO 
00789DO 
0091 2D0 
O0932IF 
0X022IF 

01TS6RD 

00278RD 

00391RD 

00511RD 

00634RD 

00782 

00S72DO 

00931RD 


00861® 00855® 00855 00893® 


O0095DO 
00205DO 
00 3 3 IDO 
03442DO 
00564DO 
00687DO 
0081800 
00901.VR 
01034DO 
00118CL 
00230CL 
O0355CL 
00451CL 
005‘ 7 4CL 
00582CL 
00797CL 
00 96 1C L 
01027CL 
00500IP 
00458RD 
00 3721 F 
004O2IF 
O0460IF 
00524IF 
00583IF 
00 62 IDO 
0091 0IF 


O0109DO 
00 2 1200 
O0343DO 
00 4 56DO 
00579DO 
00 70 IDO 
00836® 
0091 2D0 

00132CL 

00245CL 

O0357CL 

00467CL 

00588CL 

00 696C L 

0081 3CL 

O0979CL 

01029CL 

0051 3AG 

00559IF 

00377RD 

O041OIF 

004 GIRD 

0O 5 2 SRD 

00584RD. 

00524AC 

0091 9AG 


00123DO 

00235DO 

00362DO 

0047200 

(3059300 

00717DO 

00S37NR 

00924DO 

O0144CL 
00262CL 
00369CL 
00483CL 
006 05C L 
O0712CL 
O0943CL 
O0931CL 
0104OCL 
00 5201 F 

O0 3 81. AG 
00421AG 
00 4 62 IF 
0O526IF 
00 591 IF 
O0627IF 
0O922IF 


00137DO 
00 2 5100 
00374DO 
*748800 
O0613DO 
00731DO 
*384000 
00938DO 

0(31 58CL 
00280CL 
00381CL 
O0497CL 
00608CL 
0072 6CL 
O0375CL 
O0933CL 

0O521RD 

00334IF 
0O430IF 
00486IF 
O0562IF 
00400DO 
006 3 GAG 
0093 3AG 


l8U 
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00935IF 00947AG 00 964 IF 00977 0093OIF 01001 

M2 00020RD 80048WR 00372IF 00377RD 00381AG 00384IF 00389RD 00393AG 

00 3961 F 00401RD 00403RD 00407AG 00424IF 00431RD 00437AG 00454IF 

80461RD 00467AG fiJSMIF 00505RD 00513AG 80516IF 00521RD 00525RD 

00 533 AG 00 5771 F 00584RD 00588AG 00 653 IF 0065SRD 005S6AG 

M2P 00020RD 

NC 80543= 8054 SAG 00557= 00559AG 80803= 00506AG 00608AG 88580= 

00532AG 80710= 00712AG 00724= 00726AG 00750= 00783AG 00765AG 

01003= 01805AG 01807AG 01009AG 81046= 01048AG 

NDIM 00807= 00064AG 80876AG 00090AG 00104AG 00118AG 00132AG 80144AG 

80158AG 00172AG 00185AG 00200AG 00214AG 00230AG 80 2 4 SAG 00262AG 

80280AG 80296AG 00318AG 80326AG 88 3 3 BAG 00355AG 00357AG 08359AG 

00381AG 08393AG 00407AG 00421AG 00437AG 00451AG 00457AG 80 <83 AG 

80497AG 80513AG 00531AG 80545AG 80559AG 80574AG 00 5 3 SAG 88 50 GAG 

0068aAG 80524AG 80636AG 80550AG 88656AG 80682AG 80696AG 80712AG 

80726AG 80743AG 8076 3AG 00765AG 80783AG 00797AG 8031 3AG 00843AG 

88 87 SAG 00907AG 88919AG 00933AG 00947AG 88961AG 88979AG 00981AG 

80 98 3 AG 88 98 SAG 01005AG 01087AG 01809AG 81027AG 01029AG 01048AG 

NR 00573= 08 574 AG 80742= 00743AG 80977= 00979AG 80981AG 80983AG 

80 93 SAG 01801= 81085AG 01007AG 01009AG 01025= 01827AG 81829AG 

01045= 01 04 GAG 

NU 00018RD 80037WR 00107IF 80 11 SAG 00217IF 00410IF 80421AG 00424IF 

80437AG 8871 5IF 80726AG 80800IF 00812AG 80 8 4 GIF 80372DO 00S75AG 

80878IF 00903DO 88907AG 00935IF 00947AG 80958IF 88951AG 03.012IF 

01816IF 81025 01032IF 01036IF 01045 

NW^ 80018RD 80037WR 00053IF 00064AG 00093IF 00104AG 00233IF 00245AG 

H 00440IF 80451AG 00454IF 80467AG 00534IF 8054SAG 

00033RD 80034WR 80047RD 0004RVR 80058RD 00060RD 80062RD 08072RD 

80074RD 80084RD 80836RD 00088RD 00898RD 00100RD 80i82RD 00112RD 

88114RD 00116RD 80126RD 08128RD 80130RD 00140RD 80142RD 001S2RD 

80154RD 00156RD 00166RD 00168RD 80178RD 00180RD 00182RD 00184RD 

80194RD 00196RD 08198RD 00200AG 00288RD 08212RD 08222RD 80224RD 

88228RD 80238RD 80240RD 00244RD 00254RD 00256RD 80258RD 00278RD 

80274RD 88278RD 88208RD 00298RD 00294RD 08304RD 00305RD 00308RD 

0031ORD 80320RD 00324RD 00334RD 00336RD 08345RD 00350RD 00352RD 

80365RD 80367RD 00377RD 80379RD 00339RD 00391RD 00401RD 80 4 8 3RD 

80405RD 80415RD 80417RD 00419RD 00429RD 00431RD 00' , 33RD 08435RD 

80445RD 80447RD 00449RD 00459RD 00451RD 00463RD 00465RD 00475RD 

08479RD 804C1KD 00491RD 08493RD 80495RD 80505RD 88507RD 80589RD 

80511RD 80521RD 00523RD 00525RD 00527RD 00529RD 80539RD 80541RD 

80553RD 80555RD 00557RD 80559RD 00532RD 00584RD 08586RD 00596RD 

08598RD 88616RD 0851SRD 80532RD 88634RD O0644RD 80546RD 00648RD 

8055SRD 80660RD 005QRD 805S4RD 00674RD 00678RD 08690RD 00S94RD 

80704RD 80703RD 80720RD 00722RD 80734RD 00738RD 00751RD 0J755RD 

80 77 3RD 00777RD 80791RD 00795RD 00S05RD 80307RD 80S11RD 00821RD 

0JB25RD 80S27RD 08851RD 00853RD 00857RD 08859RD 88S33RD 00885RD 

00389RD 80891RD 00915RD 8091 7RD 00927RD 00929RD 00931RD 00941RD 

0094 3RD 0094 5RD 00955RD 00957RD 80959RD 00969RD 00975RD 80993RD 

80999RD 01017RD 01019RD 01821RD 01023RD 01037RD 01039RD 01041RD 

81 04 3RD 

NXC 0081 CRD 00023 00037WR 00093IF 00104AG 00107IF 80118AG 80121IF 

00132AG 80135IF 00i44AG 00147IF 00158AG 00175IF 80 18 GAG 
NXS 00818RD 80023 00037.VR 00053IF 00 054 AG 08067IF 00076AG 000791 F 

80098AG 00210RD 00226RD 00242RD 00253RD 00276RD 80322RD 80348RD 
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CROSS REFERENCE LISTING 10-APR-79 12:00:08 


PAGE 00024 


NOT 


NY 


MYO 

NYS 

NZ 



RARRAY 


REAL 

RLABEL 


00477RD 00676RD 00592RD 
00823RD 0085SRD 008S7RD 
00023 s 00203IF 00214AG 
00262AG 00265IF 00280AG 
00470IF 00 4 8 SAG 00669IF 
00741 00742 00745IF 

00780DO 00 78 SAG 0078 SI F 
00839DO 00840DO 00843AG 
00894DO 00904DO 00907AG 
01001 

00082RD 00074RD 00088RD 
00170RD 00184RD 00193RD 
00242RD 00244RD 00253RD 
00294RD 00308RD 003Z2RD 
00379RD 00391RD 00405RD 
00481RD O0495RD 00511RD 
00648RD 00S64RD 0057SRD 
00753RD 00775RD 00777RD 
00827RD 00855RD 00859RD 
00959RD 00971RD 00973RD 
00018RD 00024 00037a'R 

01025 01 0321 F 01038IF 

00018RD 00037a’R 00079IF 
00189IF 00200AG 00233IF 
00018RD 00024 00037/^R 

00262AG 00272RD 00292RD 
C0483AG 00548IF 00559AG 
01 01 21 F 01019RD 01025 
00024= 00265IF 00280AG 
01037RD 

00001DI 000S2RD 00064.AG 
00104AG 00116RD 00 11 BAG 
00158AG 00170RD 00172AG 
00214AG 00228RD 00230AG 
00280AG 00294RD 00296AG 
00 3 3 SAG 00352RD 00355AG 
00391RD 00393AG 00405RD 
00449RD 00451AG 004G5RD 
00511RD 00513AG 00529RD 
00559RD 00 574 AG 00536RD 
00624AG 00S34RD 00 S3 SAG 
00S82AG 00694RD- 0059SAG 
0074 3 AG 00758= 00763AG 
0081 1RD 0081 3AG 00841= 
0091 7RD 0091 9AG 00931RD 
00975RD 00979AG 009S1AG 
01009AG 01023RD 01027AG 
00602 00622 00759 

00001DI 00060RD 00064AG 
00 11 BAG 00128RD 00132AG 
00172AG 00180RD 00186AG 
00224RD 0022SRD 00230AG 
00270RD 00272RD 00280AG 
00320RD 00322RD 00326AG 


00736RD 00753RD 00775RD 00793RD 00809RD 
00971RD 00995RD 

00217IF 00230AG 00233IF 00246AG 00249IP 
00313IF 00 3 2 SAG 00341IF 00355AG 00357AG 
00682AG 00685IF 00696AG 00729IF 00740DO 
00757DO 00763AG 00765AG 00768IF 00779DO 
00797AG 00800IF 0081 3AG 0081 6IF 00830DO 
0084SIF 00862DO 00871DO 00875AG 00878IF 
00964IF 00973RD 00977 009S8IF 00997RD 

00102RD 00116RD 00130RD 00142RD 0015SRD 
00210RD 00212RD 00225RD 00228RD 00230AG 
00260RD 00272RD 00276RD 00278RD 00292RD 
00324RD 0033SRD 00348RD 00352RD 00357RD 
00419RD 00435RD 00449RD 00465RD 00477RD 
00529RD O05S9RD 0058GRD 00518RD 00S34RD 
00692RD 00S94RD 00706RD 00736RD 00738RD 
00793RD 00795RD 00809RD 00811RD 00823RD 
00237RD 00891RD 00917RD 00931RD 00945RD 
00975RD 00995RD 00997RD 01023RD 
00175IF 00 18 SAG 00189IF 01012IF 01018IF 
01045 

00090AG 00121IF 00132AG 001S1IF 00172AG 
00296AG 00299IF 00310AG 00313IF 0032SAG 
00147IF 00158AG 00161IF 00172AG 00249IF 
00299IF 00310AG 00329IF 00338AG 00470IF 
00706RD 00 92 21 F 00S33AG 00950IF 00951AG 
01032IF 01039RD 01045 
00283IF 00296AG 00699IF 00712AG 01017RD 

00074RD 00076AG 0008SRD 00090AG 00102RD 
00130RD 00132AG 00142RD 00144AG 0015SRD 
00184RD 00 18 GAG 00193RD 00200AG 00212RD 
00244RD 0024SAG 00260RD 00252AG 00278RD 
00308RD 00310AG 00324RD 00326AG 00336RD 
00357AG 00367RD 003S9AG 00379RD 00 3 SI AG 
00407AG 00419RD 00421AG 00435RD 00437AG 
00467AG 00481RD 00483AG 00495RD 00497AG 
00531AG 00541RD 00 54 SAG 00555RD 00559AG 
00588AG 00601= 00S0SAG 00603AG 00622= 
00S48RD 00650AG 006S4RD 005S6AG 00678RD 
00708RD 00712AG 00722RD 00726AG 00738RD 
007S5AG 00781= 007O3AG 00795RD 00797AG 
00843AG 00373= 00875AG 00905= 00907AG 

00933AG 00945RD 00947AG 00959RD 00961AG 
00933AG 00985AG 00999RD 01005AG 01007AG 
01029AG 01 04 3RD 01048AG 
00781 00842 00874 00906 

00084RD 00090AG 00100RD 00104AG 00114RD 
00140RD 00144AG 00152RD 00.158AG 001G8RD 
00196RD 00200AG 0020SRD 00210RD 00214AG 
00240RD 00242RD 0024 SAG 00254RD 00262AG 
00290RD . 00292RD 00 29 SAG 00306RD 00310AG 
00334RD 0J33SAG 00350RD 00355AG 00357AG 



186 









RT~11 INDEX VvJ3 CROSS REFERENCE LISTING 10-A PR-79 12: 008 09 PAGE 0O025 


XDATE 

XTIMB. 

10 

100 

1000 

1010 

1020 

1030 

10-50 

1050 

10*0 

1070 

1030 

1090 


00355RD 00359AG 
00 -10 7 AG 0O417RD 
00461RD 0046 3RD 
00 5 HAG 0JS21RD 
0O5S7RD 00572- 
iWAOSAG 00816RD 
006SSAC 00574RD 
0070 3RD 0071 PAG 
00751RD 00753RD 
0079 3RD 00797AG 
OOS55RD 00 87 SAG 
C0941RD 00947AG 
00 931 AG 00 93 3 AG 
01009AG 01017RD 
01041RD 01 04 BAG 
00.50 3DP 
00003DP 

00O1O.MR 00011* 
O0O32GT 000S2* 
00032GT 00668* 
O0671DO 00679* 
00032GT 00684* 
0063700 00695* 
00032GT 00393* 
0070 IDO 00709* 
00032GT 00714* 
0071700 00723* 
00032ST 0072B* 
0073 IDO 00739* 


00377RD 
00421AG 
00467AG 
00 52 3RD 
00 57 4 AG 
OO 62 4 AG 
00676RD 
00 7 2 OR D 
O0763AG 
0OOO5RD 
00 S3 3RD 
00955RD 
00935AG 
01019RD 


00391AG 
00431RD 
00479RD 
00 531 AG 
00532HD 
00532RD 
0068 2 AG 
0072 GAG 
00765AG 
0031 3AG 
00907AG 
00961AG 
00 99 3RD 
01021RD 


00309RD 
00 4 3 3RD 
0O4C3AG 
00539RD 
0O5B4RD 
00535AG 
00690RD 
00734RD 
00773RD 
0082 1RD 
0091 5RD 
00959RD 
00995RD 
01027AG 


O0393AG 
O0437AG 
00491RD 
00 54 SAG 
00 58 BAG 
0054SRD 
0OS92RD 
0O736RD 
00775RD 
00 32 3RD 
0091 9AG 
00971RD 
0O997RD 
01O29AG 


0O4O1RD 

O0447RD 

00 4 97 AG 

005S3RD 

00596RD 

00650AG 

0O 69 SAG 

00741* 

03733AG 

00 3 4 BAG 

0092 9RD 

00973RD 

01 00 SAG 

01037RD 


00 40 3RD 
00451AG 
O05O9RD 
C0559AG 
0060 SAG 
006S2RD 
0070-lRD 
00743AG 
00791 RD 
O03S3RD 
00933AG 
00979AG 
O1007AG 
O1039RD 


1095 

O0740DO 

00741* 


no 

O0055DO 

0OO33* 


1100 

00032GT 

00745* 


mo 

DD74PDO 

00756* 


1115 

0O757DO 

00759* 


1140 

00032GT 

00767* 


1150 

■007 71*00 

00770* 


1155 

00779DO 

O0 73 ODD 

00732* 

1160 

00O32GT 

00785* 


1170 

OJ788DO 

00796* 


1180 

00032GT 

00799* 


lift? 

O03O2DO 

00812* 


120 

00032GT 

00063* 


1200 

00032GT 

00315* 


1210 

O031GDO 

00828* 


1212 

0083000 

0O3323T 

00335* 

1213 

O0837.VR 

O0838* 


1215 

003 3900 

0O840DO 

00042* 

1220 

0O032GT 

00345* 


1230 

00848DO 

00860* 


1232 

0036200 

0O354GT 

00867* 

1233 

00369.VR 

00370* 


1235 

0037100 

O0372DO 

00374* 

1240 

000.3 2GT 

00377* 


1250 

0033000 

00892* 
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0090 l’.VR 00922* 

00903DQ 0050400 00905* 


1260 
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00509* 
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0091290 

00318* 

12P0 
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0006900 

0007S* 
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00549* 

1330 

0095290 

00960* 

1340 
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: ( 


00001 SUBROUTING MATLIS (NT, TITLE, NDI'\ NR, MO , RLABEL , C LAP F.L , RARRAY, 

+ CAR RAY, IX) 

C ROUTING TO our PU1' MATRICES IN READABLE FORM. 

00002 DIMENSION RLMVFL(NR) ,CLAUEL (NC) , RARRAY (NDIM,NC) , CARRAY (NO I M , MC) , 

+ MUM (7) 

00003 .LOGICAL*! TITLE (NT) 


00004 

COK4CN/IO/ I IN , IOUT 

0,0005 

DATA IDASHL, IDO'l’L, IDASHR, IDOTR, IEX, IB / 

+ • 7 

00005 

DO 50.) TPAGF.*l,NC,r> 

00007 

IF(TPAGE.FC.l) WRITE (ICUr, 10) (TITLE (I ) 

00009 10 

Fi3AAAT(5X,40.\i,/) 

00010 

NPAGE “I PAGE +5 

.von 

I F { N PAGE . GT . NC) MPAGE S »NC 

00013 

DO 00 !=[ PAGE, NPAGE 

00014 

I I =1-1 PAGE+i 

00015 00 

NU V (IT)=I 


OOOn 3/ 
000 IS 

00019 40 

00020 
.von -is 
00022 

00024 

00021 

00025 
.AM 30 


'.'.RITE (I OUT, 30 ) (MUM (I) ,I«i, NPACS-T PAGE+i ) 
•FORMAT (OX, IP, SI 11) 

'•.'RITE ( tOUT , ‘V ) (CLAREL (I ) , 1=1 PACE , NPAGE ) 
t'CXv >' AT (2X , A? , SA1 1 ) 

DO OS t»i,7 
N'jM(t)=rs 

l F ( 1 1 ’AC?: . r;0. i ) NU M ( i ) * T D ASM L 
ID( IPAGE.VE. I) NU.I(i)*IDOTL 
t F (NPAGE. EO. NC) MUM (NP.AGE-I PAGE +2 ) a I DASH R 
I F ( NPAGE . NE . NC) N'JM (7) -I DOTR 
WRITE (IOUT, 50) (NU4(I),I=i,7) 


PT'KUNAT'. PACE !< 
OF POOR O' VU I V 


00031 50 

FORMAT (3X , AO, 5 ( 0 X , AO) ) 


00032 

DC 400 1=1,533 


00033 

IF (NPAGE. EG. NC) GO TO 150 


00035 

ir(IX.FO.i) GO T'"' 100 


00037 

tP(l PAGE . EO. 1 ) WRITE (IOUT, SO ) 

IEX, IEX, (RARRAY (I ,J) , J=I PAGE , NPAGE ) , 


+ 

IEX 

00039 

It'(t PAGE . ME , 1 ) WRITE (IOUT, oO) 

IB, IB, (RARRAY (I ,0) ,J=I PAGE, NPAGE) , IB 

00041 *0 

FOR ''AT ( 3X , A 1 , / , 3X , Al , 5311. 3,/ 

,.3X, Ai) 


00042 GO TO <M0 

.vi ■ \ i.i. r»f i? 

t • 


00043 100 

cornvus 

00044 

I F ( I PACT. , FC. 1 ) V 1 UTE ( T OUT , 

¥ 

00045 

Tret pace . :t . ) wn iTK ( r our , 

JL 

00049 110 

r 

FORMAT (3X , Ai , / , 3X , Al , CC 1 1 , 

0004b 

GO TO 4.1,} 

00050 i r M 

continue 

>'0051 

GO n (150,200,040,200,32. 

■'0050 1<M 

CONTINUE 

00053 

trax.Ko.i) go to ico 

00055 

IL'(1 PAGE . EO. 1 ) NR ITE ( I OUT 
+ NPAGE) , TEX, RLABEL(l) 

00057 

IF( TRACE.NK. 1) ’•RITE (ICUr 


, IPX, {CARRAY (I ,0) ,J«r PAGE, NPAGE) f I EX 
I IB, IB, (R ARRAY (I ,.T) ,J=I PAGE, DRAGS) , 
IB, (CARRAY (I ,J) , J=I PAGE , NP.AGE ) , IB 


f 3=1 PAGE, NPAGE) , 

+ TEX, RLABEL (I) , IB , IEX 

00059 170 FORMAT ( 3X , AI , I I X , A i , .'X , 1.7,/, 3X, AI,G1I . 3, Ai, IX,A3,/,3X,Ai, 11X,M) 

191 
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*)00oil 

.\v>i IPO 
po.r>2 


.moas ;?p 

>wr>7 
.v.v'r o.v 

AMRO 


AV7R 

AM?7 2A) 

: * 

t J* 

.\V3^ 

WM3 
«\\W V. 1 ! 
*\V35 

Y ' ,■> y 

%\V30 


. -GO 70 -ys.lij 
■Cwrrvus 

iniPAGB.BO. i) M«T!-:(IOlfP,iW) I EX, IEX, IEX, (RATTRAY (I , J) ,>tP.\CB, 

+ , TEX, I, IEX, ( CAPRA Y(t,J) ,J-t PACE, NPAOK ) , IEX 

+ RLARELd ) , IEX, IEX 

IFCPAGE.M-:, i) ’VRITR (tOUT , 19 , 1 ) IP, IEX, IP, (RARRAY(I* J) , 

+ J*I PAGE, WAGE), v ' " 

* (OXn,UY < I » t ’) 'PIPAGE, NPAGE) ,IKX,RLViFL(I) ,W,IEX 
FiUA>l(AX,A*,-i:x,Al,/j»C,Al,Gil. 3 ,Ai»ZX,I 2 ,/, 3 X,Al,Gi ; i. 3 ,Ai,' 

j. a , A 3 , / , ,j.\ , A . , a j. X , A j. ) 
go TO A \1 

comtiv'j--: 

iF(IX.EO.i) GO TO PPvl 

T Id I PAGE . EC. 1 ) VniTE(IOUr,PIO) IEX, IEX, I, IEX, (RARRAY (I , I) ,.MP\GE. 
+ '-'PAGE) ,.n:x, ELAPEUI ) , IEX, IEX ' 

IF(IPAGE.\’E. 1 ) MUTK(I<W,P;p) IP, IEX, I, IB, (RARRAY (I, J) , 

+ I "I PAGE, X’PA.GE ) , ' 1 

+ IEX,R[.\BEL(I),m,IEX 

A; ' n?x > A; '^' i*V/# 3 x,a;, an. 3 . ai, :x,a 3 ,/,:*,a;, n 2 x,Ai) 

* iw m.p ■ 

CONTINUE 

t E ( I PAGE . EC, i ) V KITE ( TOOT, PM) IEX, IEX, TEX, (RARRAY ( I ,. 1 ) ,J=IP.\GE, 

+ '•’PY'.E) ,IEX, I, IEX, (CARRAY ( 1 , 0 ) ,.I-G PAGE, XPAGE) , IEX, 

*• RLARELd ) , IEX, IEX 

T”(IPAGK.XE. I) ''RITE (ICIN', P 3 P) TB,IEX, IB, (RARRAY ( 1 , 0 ) , 

* 1 = 1 PAGE, GRACE) , 

7 v, P'l' 1 ?! <™rai\¥(I,J) , J=T PAGE , \’P \GE ) , IEX, RLABKL(I) » 115 , IEX . 

• AY ( 3 X, Ax, POX , Al, /, 3 X, Ai, 2311 . 3 , A 1 , PX , I P, / , 3 X , AI , 2311 . 3 , Ai, 

+ :x,a.3,/,3x,a:,ppx,ai) 

GO TO .MO 

crurtvux 

tF(IX.K'P.I) 30 TO PM 

tP ( IP VIE. EC. i) VRITK (IO!JT, PSP) TEX, IEX, T, IEX, (RARRAYd,.!) MMPAG*. 

* XPAGS) , IEX, ['LABEL (I ) , IEX, IEX 

IF (I PAGE, NE, i) MUTE (I 0 Ur,P 5 P) IB, IEX, I, IB, (RARRAY (I , J) , 

+• J=!PACE,VPAGE) , 

*■ IFX.KIAMEI.m .rn.TPV 


'(V 

;n. t \ 

F.Y0‘AT(3X, Ai, 33: 



GO TO .AM 

•WO} 


C< Y 'TT'’! <E 



I!‘( IPAGE. EC. i) ' 
+ 'IPAGE) , IEX, 

* Rt.\PEL(I ) , E 

x'Ws' 


TF( IPAGE. NE. i) 1 
+ 1=1 PAGE, X’PA! 

f IB, r, IB, (GA! 

* 1 Mi**' 


'■VR"AT(3X,Ai,3P..' 
+ iX,A3,/, 

,%vinq 


GO •pO ,-Mp 

.Yl.M 


COUTINUE' . 

kV A i' 4 


I F ( I X. EC. I ) GO '! 



T F ( I PAGE . PO. i ) < 
♦ -PAGE) , IEX, 

*WI^5 


IE( IPAGE. EE. i) l 
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+ .7 PAGE, WAGE), 

+ TEX, P.l.ABEL ( I ) , IB , IPX 

001*77 790 F(Yv'’A7(3X,Ai,44X,Ai, 2X, I2,/,3X,Ai,4jii. 3#M# IX,A3,/ , OX, Ai, 44X, Ai) 

00103 GO TO 400 

00109 3.V. CONTINUE 

,viio if( i page, re* i) v.nn’E(ioin',:uo) m, iex, iux, (rarrjvy ( i , j) ,j«ip.\cs, 

+ MPAGK) , IKX, T , IKX, (CAKRAYd ,J) ,. 7=1 PACK, WAGE) , IKX, 

+ RI.YBKt.d ) , IKX, IKX 

00112 IF(rPACE.NE.i) MUTE (tOUT, 313) IB, IKX, ID, (RARRAY (I , J) , 

+ J=t PACE, NPAOS), 

+ IP, I, IB, (CAERAYd ,J) ,.7 =1 PAGE , NPAGE ) , IKX, P.IABKL (I) , IB , IKX 

0,1114 3 IP FtP <1 AT (3X , Ai , 4<* X , Ai , / , 3X , Ai , 4G11. 3,Ai, ?X, I2,/,3X,Al, 4G11. 3,Ai, 

f 1X,A3,/,3X,A1,44X,A1) 

.Vi 1 5 GO 70 400 

.Vi 1 3 320 CCWVIN'JS 

.Vi 17 V r '(IX.K0.I) go 70 340 

.Vi 19 IF ( l PAGE. EQ. 1) VRITE (TOUT, 330 ) IKX, IKX, I , IKX, (RARRAY (1 ,0) ,.7=IPACE, 

»• ‘.'PAGE) , IKX, RtABFLd ) , IKX, IKX 

00121 I F ( I PAGE . ME. 1 ) V RITE (IOUT , 339 ) IB, IKX, I , ID , (RARRAY (I ,J ) , 

+ .7- 1 PAGE, WAGE) , 

+ IKX, ELAUKI.d ) , ID, IKX ..... 

.VI 93 3? ' FCR‘ 1A .7(3X, Al, i ;i VX,.\l, 2X, I2,/,3X,Ai, 5G11. 3,M, IX,A3,/,?X,Ai, ?5X,Ai) 

00124 GO TO <*30 

00133 340' COMTINir. 

,\ 3 i?. 3 I F ( I P \GK . FO. I) '.’’UITK (TOUT, 390) IKX, IKX, TEX, (RARRAY (1,0) ,J=irv>G, 

t- UP AGE) , IKX, T, IKX, (CARRAY (.1,0) , 0 - 1 PAGE , WAGE ) , IKX, 

4- RLABEKd ) , IKX, IKX 

0012(1 IF(IPV'K.VK. 1) MUTE (IOUT, 350) IB, IKX, IP , (RARRAY (1,0) , 

+ 7=1 PACK , XPAC.E ) , 

4- IB, I, ID, ((’ARRAY (1,0) ,0=IPAGE, WAGE) , IKX, P.LVD'Ld ) , IB, IKX 
.Mi 3.' 750 i 'CP <V V7 (3X , Ai , 55X , Ai , / , 3X , Ai, 5G 11 . 3 , M , 2X , I?,/ ,?.!<, Ai, Mix. 3, A*, 

+ IX, A3, / , 3X , Ai , 55X , Ai ) 

» 1 ' B ' t'M *••*> M3 

II 1. 4. 1 . v ' ' *V 

* * * *> > ^ * (' ,M I'Pryi ji.*' 

0.1133 IF(!':.K0.i) GO TO 330 

00135 II (TPAGX.KO. i) ’.'RITE (10 IT, 370) IKX, IKX, I, IKX, (RARRAY (t,J) ,.7=IPACE, 

4- \«PACL) , IKX, UI.ADKI. (I ) , IKX, IKX 
00137 U’(IP AGK.XK.i) '.'UITK (IOUT, 370) ID, IKX,I,IB, (RARRAY (T ,0) , 

+ J = I PAGE , XPAOK ) , 

f IKX, RLAP.KLd ) , IiV, IKX 

00139 .770 K'9R’’AT (7X, AI, 74X,Ai, 2X, 12,/ ,2X, AI, -3011. 3, Ai, IX, A3,/»3X, Ai, D3X, Ai) 

0014.) GO TO •MO- 

OD 14 1 35V CCt'TTNUX 

00102 IF(t-P.\GK.E?. i) K1TK (ICJP, 390) IKX, IKX, TKX, (RARRAY (1 ,0) ,0=1 PAGE, 

+ WAGE) , IKX, T, IKX, ((.'ARRAY (1,0) , J = I PAGE , S'P.AGK ) , IKX, 

+ RLVDKL(l) ,IKX, IKX 

00144 1 F ( I PAGE • f IE. i) ’'KITK (1000, 390 ) IB, IKX, ID, (RARRAY (I, J) , 

4 7 « I PARK , XPAGK ) , 

4- TO., T, I’D, (CARR AY (I ,.7) ,.7*=tP AGE, WAGE) , IKX, rtABKl, ( I ) > , I’D, 7EN 

00149 790 FdMAT{3X,Ai, XAX,.M,/, :X,/.l, '"Gil. 3,.Ai,2X, 12 , /,3.x. , Ai, Rill . 3,Ai, 

4- 1 X , A 3 , / , 3X , A 1 , A..X , Ai ) 

00147 <*00 GOrriYUK 

00149 ’.U1TE( I OUT, 50) (MU4(I ) ,1=1,7) 

03149 •n'RTTE (TOUT. 450) 
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00150 450 
O^iSi 500 
0.1157. 

00153 

00154 


FORMAT (/////) 
CONTI Mi JR 
REMIND I OUT 
RETURN 
END 
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00074WR 
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00099\U 

F0127vR 


P0097VR 

00I29WR 


001.14WR 

0013QVR 

00355KR 

oooes'vr 

0312.7VR 


RLA3EL POO 01 AO 00002DI 

poo7?*/r .poociwr 
OOliiKR P0ii3WR 
00I43,\R 00145VR 

TITLE 00001AG P0003LG OOOOSWK 

10 OOOOR.v'R 00009* 

loo ,vo3sgt poop 3* 


ooioswr 

0J13CTVR 

03053WR 

0009PWR 
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00053WR 00055M3 00372WR 0007^'VR 
0009S.VR 00297VR 00104WR OOIO'VR 
00127, vR 00127.VR 00I3SWR OOmr’R 


’ " ,1 
A,dly 

0004 fWR 

iVWTWK 

0004p* 


150 

PP034GT 




ISO 

00051GT 




170 

0P052.-;R 

CvAW<R 

00059* 


ISO 

0005 a 3 t 

vW r >i* 



190 

00053','R 


POOSS* 


■? < 

« •« • 

0001300 
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200 

00051GT 




210 
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*Mi*74WR 

00.575* 


220 

ooo7,r/r 

iVir/7* 



230 

00079VR 
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240 

PP051GT 




250 
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230 

OOODSGT 




270 
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.VJ97'R 

00093* 
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* ■* * * -» *. 



290 
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30 
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300 
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310 
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PP113WR 
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PP11S* 



330 
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00122.VR 
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340 

00119GT 

POI25* 



350 
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0012737 
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350 

.V051GT 

00132* 



370 
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00141* 
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00145VR 
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40 

P 0017- 'R 

POO 19* 
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00049GT 



pooo f n t 

3 \ • -.rv-'-v 
o auvj 1 

00115GT 

iV;12/|GT 

45 

PP03 500 




450 

0014CVR 

/v;‘v* 



50 

P.VT7MR 


0014DCR 


50 P 

POPP', DO 

.v: 51* 



50 

pop 3n*!R 

^V.VI^vR 

0M41* 




; y-i"* i -r 
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RT-il INDEX V33 SOURCE LISTING 


10-APR-79 33:33:50 PAGE 33331 


33312 : 

33313 
. ,13315 

33315 

33.517 

33310 

33319 

33323 

•33321 

33322 

33323 
33323 
33325 


3332- ! 
33320 

< 

33329 
32333 
32331 
33332 
33334 
33234 
23337 

33330 
23339 
22-343 
33341 


33342 

33343 

33344 

33345 
23347 
33349 
23353 


SUBROUTINE BALANC (N:4,N,A, LOW, IGH, SCALE) 

INTEGER I , J » K , L, M , N , JJ , N4 , IG. I , LCW , ICXC 
REAL A(MM,N) , SCALE (N) 

REAL C,F,G,R,S,B2, RADIX 
REAL ABS 

DIX IS A MACHINE DEPENDENT PARAMCTm SPNCIFVING 
TllE BASE OF THE MACHINE FLOATING POINT REPRF.oEM rATION . 
********** 

RADIX-2 

B2=RADIX*RACIX 

!<=i 

L=N 

GO TO 133 

********** IN-LINE PROCEDURE FOR RCK AMD 
COLUMN EXCHANGE ********** 

SCALE (M) =3 
IF(J.EQ.M) GO TO 50 
DO 33 1=1, L 
F*A(I.J) 

A(I,J)=A(I,M) 

A (I , M)=F 
CONTINUE 
DO 4 0 I =I< , N 
F=A(.7, 1) 

A(J,I)=A(M,I) 

A(M,I)=F 

CONTINUE 

********** Search i 7 or Rtws isolating an eigenvalue 

AND PUSH THEM DOWN ********** 

IF(L.EQ.l) GO TO 2C3 • . 

- r , n » !i\tfPTT * nn —— ******** ** 

********** FOR J=L S’xLP -*x UNTIL x 00 

DO x2 0 # L 

J=L+I -33 
no llvv i=i , l 
IF(t.EQ.J) GO TO lid 

IF(A(J,i).NG.0.0) GO TO 120 

5 continue 

M=L 
lEXOi 
GO TO 23 
■) •CONTINUE 

********** SEARCH FOR COLUMNS ISOLATING AN EIGENVALJ* 

AND PUSH THEM LEFT ********** 

•’ K=K+i 

2 DO 173 J=K,L 

DO 153 I=K,L - . -- 

IF(I.EQ.J) GO TO 153 
IF.(A(I,J) .ME. 3.3). GO TO j.70 
12 CONTINUE 
M=K 
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170051 iexc=2 

00052 GO TO 20 : 

00053 170 CONTINUE 

C ********** MCF,,; BALVOC THE SUBMATRIX IM ROWS •< TO L ********** 
0005-1 DO 122 I =!< , L 

00055 ;ec scale ( i) =1.3 

C ********** ITERATIVE LOOP FOR NCR 'I REDUCTION ********** 

00055 IS%7 VXCSV=. FALSE. 

00057 DO 273 I=K,L ■ 

22253 C=0.0 ■ 

00059 R=2.0 

«»!)J DO 200 J=!<,L 

33J51 IF(J.EO.I) GOTO 203 

23353 C=C+ARS(A(3,I)) 

00054 R=R+ASS(A(I,J)) 

00055 222 CONTINUE 

c ********** GUARD AGAINST ZERO C CR R DUE TO UNDERFLOW ********** 
J2.W IF(C. EQ. 3.2.GR.P. ECV2.2) GO TO 272 

22233 G=R/KADIX 

22259 F=1.2 

23272 S=C+R . ■ 

33271 21 2 IF (C.GE.G) GO TO ,222 

23273 F=F* RADIX 

22373 C=C*B2 

22275 GO TO 21 2 

22275 223 G=R* RADIX 

22277 232 IF(C.LT.G) GO TO 253 

23279 F=F/ RADIX 

33322 CC/B2 

33391 GO TO 233 

C ********** \j cj',: B\L\>C ******'**** if 

J.V/32 2*V< IF ( (C-HJ/F.GE. 9? *3) jO TO 27*? 




j=x. 2/F 

•WOO 5 


SCALE (I }- SCALE (I ) *F 



\’XCNV=.TRUE. 

^37 


DO 253 J =!\ , M 

■W85 

25.' 

•\(I,J)=A(I,J)*G . 

.W ,& 9 


DO 253 2=1, L 

kVJW 

2'V 

A(J,I)=A(J,I)*F 

iV.^i 

-%•** •* 

CONTINUE 

i\3v)92 


IF(NXCNV) GO TO 192 

^V9'1 

23.) 

LOW=X 

k’iV95 


ig:i=l 

*:.V9S 


RETURN 

cVi’97 


END 
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•OOJJ1AG 

i\’«Y,3RL 

Vi I* 
*ju *au 

.72017= 

002iC= 

02021 00022= 

J2J23= 


02034IF 

22247IF 

00073 

0.7 2 9 4 

000 . 93 = 

03090= 


ABS 

00035RL 

32373 

32054 





OALANC 

23 33 ID U 







B2 

00004RL 

JJ.JJD= 

2307/! 

2JJCH 




C 

JJ.V4RL 

23 3 5b = 

00273= 

00007IF 

00072 

J-.V71IF JJJ7<*.= 

00077IF 


JJOSJ- 

3 2282 IF 






F 

JJJ-.V.RL 

1 ■» V* 

« *, wx >-■ 

JJU3 

00021= 

00223 

JJJS9= J.;J73= 

JJJ79= 


02372IF 

2333m 

JJ.525 

00090 




G 

•.'J0J4RL 

.’•!JS3= 

03071 IF 

00277= 

JJJ77IF 

.MJR 4 = lf,rz?.3 


I 

23202IN 

3331570 

30317 

00J17 

002 IP 

jjj2.:no .v.’9i 

00022 


J.Y23 

2323100 

002 3 21 F 

003 Vi IF 

iYiV./iDO 

JJ.V.5IF .VA47IF 

3005^0 


33355 

JOJ57DO 

200 7 11 F 

00073 

00074 

JJjr.R JJJS3 

vW09J 

IBXC 

333 321 M 

.\V25GT 

JJJ3D* 

00051= 




ICIi 

33 331 AG 

333 32 IN 

00095= 





J 

333 321 M 

33312 

00013IF 

03017 

02017 

JJJ21 J.V27 

00033= 


3 02 321 F 

J.M34IF 

23343DO 

00.M5IF 

000 47 IF 

JJJSJDO k'JJ'ilF 

EJJS3 


.\V-V, 

S7D0 

jjjec 

00089 DO 

20090 



JJ 

3 33 3 21 M 

.vj?.?do 

J0J3J 





K 

333 32 IN 

J0J.)?= 

20220DO 

30 .Vi 2= 

0004300 

JJ.V-^OC JJJ5« 

2005^03 


23357DO 

3337700 

JJJP.7D0 

00094 
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32 3 321 N 

202*x «<•= 

JvWifDO 

03 02 7 IF 

t At it . “ 

JJJ2°D0 .VJ3J 

2. 003 IDO 


',*3 237 
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JJ.V.'iRO 

3035400 

JJJ57D0 
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LO< 

'*'* \n 

\ l •*.*.< X* V 1 

3 ’ 0021 N 
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v t 
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33312 

JJJ13IF 

20217 

3001 C 

JJJ22 JJJ23 

N 

22353= 

. ■> • ■» ■ a r* 
1,1 U-V x* vj 
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» "I ■* O.'U 

rwJ.\L 

20212 

00.12 ODO 

,\V£703 
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i t<i(l X 
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xoccnv 
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t >tttJ iLrJ 
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200-VRF 
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.W777IF 
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JJJ32IF 

RVJIX 

.WJO/UL 

23727= 
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M HI 
/ .1 

1 i n'' ^ » v*?n 

x-’yji /:.) Wl l < V 


Ij 
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23270= 

2JJC2IF 
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iVJJiAC 

> . \n- 3 .\ L 
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30055= 

1 t i^C- 
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Xi ** 

111** 
i « % 1 lO 4 
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33331D7 
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il.lf 
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0V35GT 

J.V4J* 
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003410T 
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15.1 
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2004700 

0004F3? 

tW-53* 





133 
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20035G7 
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:?22 

O.VODO 
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YJ75GT 






I*) * 

if v;’ 

... V, * ,.j L 

i\Y7R* 







. , -,-1-. ^ M lO' f^'T* 


240 

l .*» < / l*J * k . 1 v«. 

253 

3239700 

22388* 

230 

3337920 

33v)93* 

270 * 

3225700 

20077GT 

230 

.Y.5273T 

.■0/1* 

30 

J.'.'iSDO .YJ19* 

43 

J.’.’2. IX? >;j.’24* 



If" 

I pf 

P Mila 






ur-i; i*o:x vo 3 moukck 




w-Am-79 »vwtUt53 pao2.*vim; 


■Kij 


.WVL 


•;sam< vitimf; umjwk (m -i, n, t;K, 

.v.v;’ 


ixri-xaw 

AV03 


r.KM. :x?au:(m),/.(n»v,m) 

.\V04 


ir'Ai, n 



IF ('MW >') f ,0 Tv) VO 

.WO? 


ifu'Vi.iwlk) no to iv 

J0.M9 



,V.o;o 




c 

********** t.KFT ji,\n«> KUteNVRCTnuB MW 1 


c 

if ‘mi' foufooimg statf-uat 


z 

i . , vhcm j-i ( r ) . ********** 

.wu 


•'0 iv 

oo.uo 

\ ,\i 

:t(i,o)«; (t, 0 )*:i 

•\v.;3 

AH 1 

CAVITY 


<: 

********** irn i«'t.o.\--i rtTiip -i into. ; 
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o.vm 
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lF(Ut.T.U>) 1 I 
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A t « *> * 
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M 
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.TOM 
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.V.V5 
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* v ♦'* t 
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4 Ml 
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.VO 


uni 
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/ Hi 



iMor.x vv:t cucra uepi5««cb ;o-apk-*?d muUjsi pac* 


uauxak 
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av.i?im awoao »\ow aw 12 a\us» ami^if awisif * 

.V..1.W AViUIF AWM AAW5 

av^v* AvwxtN avpip «yawo avi/mif 

'A\V.2lJ* .''.IMW AVIS A\U? 

.VJ.521.V AMllDO *Vl? A'A’iOC vVV AV2* 

.V,V?n A1AV* • AW2UF AW?.* A\!2<« , ,,,.« 

• AVv i\G AVAMN AW? IF AV. V SX> A'«U*tF »W*PIF AW *9 

AV.W, AV.PtM AW'lU. .\\yStP AViiDO AWnjJO 

Awnv. a? . v;' i m vawui. avmo3 

.‘AV2IM .'WliU, 

A'.V'UL A\U>' AVI? >VAV*« AV?f* 

A\\U\C. A5.V.V.5I. ’ AV **' AVM 

AV'IV' AWWt. AVI 2* AW.4 »UM25» AVS''* 
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.WW* 

AVAV.T |VW* 
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subroutine decom p (sidim j m # a , comd , ifvt # wcrk) 

INTEGER NDIM.N 
COMPLEX A(NDIM,M) ,T 
INTEGER IPVT(N) 

RECOMPOSES A COMPLEX MATR I X BY GAUSSIAN ELIMINATION 
AND ESTIMATEG THE CONDITION OP 'DIE 3ATRIX. 

USB-SOLVE TO COMPUTE SOLUTIONS *|T> LINEAR SYSTEMS. 

INPUT. . 

PUTM » DECLARED RO’ DIMENSION OP THE ARRAY CONTAINING \, 
M a ORDER a-' 11IS MATRIX. 

A ■ MATRIX TO HE TRIANGULAR U ED. 

ourruT.. 

A CONTAINS AN UPPER TRIANOJIAR MATRIX U AND A PERMUTED 
VERSION OP A LOVER TRIANGULAR MATRIX I-L SO THAT 
(PERMUTATION MATRIX)*A « L*U 
CCND » AN ESTIMATE OF TIE CONDITION OF A. 

FOR THE LINEAR SYSTEM A*X » R, CHANGES IN A AW H 
•’AY CAUSE C!i\N*Ci:;l CCT-m TIMES AS IARGR IN X. 

IF ClM)U„1 . EO* COND, A IS SFEIULAR TO VCR KING 
PRECISION. COND IS SET TO i.OE+32 IP EXACT 
SINGULARITY ID DETECTED. 

irvr n tiis pivot vector. 

TDVT(X) * THE INDEX DP THE N-TU PIVOT ROW 
II'VV(N) * (-;')** (Ml W PR OF ■ TNTERGUWIES) 

,,! ORK SPACE. . THE VECTOR *\‘CUK MUST RE DECLARED AND INCLUDED 
IN THE CALL. ITS IMP’ If CONTENTS ARE IGNORED. 

nr. ourrur carrENrs are usually unimportant. 

'DIE DETERMINANT OF A CAN HP OBTAINED ON OUTPUT BY 


00005 


IM'l'iX'.ER rni, I, J # K f KPi,»MM. 

.'OOP A 


CC>.'Da.).0 

00, V7 


IPV1’ (N)=l 

00003 


IF(N.tV'.l) GO TO iM 

00010 


NM 1 “Mr 1 


c 

GAUSSIAN ELIMINATION Kill! V ! 

00 U I 


DO 3 

ooo;?. 


•;pi«k+; 


c 

PI VO PIVOT 

00013 



14 


DO if. I-NPl.v 

*\Y1$ 


IF (CARS (A( I , K) ) .Gr.CAHS (A(M, 

i\\U7 

;r^ 

CONTINUE 

iWitl 


!PVT(R)«M 



t f ( . ne . x ) i rvr (n ) *- 1 rvr (N ) 

.W2I‘ 


T*\(M,K)- 



A(M»!») a A(K t '\) 

•\Y2.l 


A(S,K)«T 


c 

SKI P STEP IF PIVOT TS 2 FRO 

AVM 


l F (T . E 0. CM PLX (0 . 0 , 0. 0 ) ) 0.0 1 


*: 

COMPUTE MULTIPLIERS 

:m?a 


'XI TO I--KPI.N 



•A ( T » '») 3 -A( I ,i\)/T 

s'M?n 

?ii 

CONTINUE 


c 

TNTFRCi LANGE .AMD ELIMINATE 10 


■ss 


irr-11 INDEX V.13 SOURCE LISTING 


iiVAra-79 *13:5^53 PAGE MJ42 


DO 30 J*KPi,N 
T»A(N f J) 

A(M,J)«A(K,J) 

A(R,0)=>T 

iF(T.r:o.cMPLX(inj, t i.ti)) go to 30 

DO .T> I=KPi,N 

A(I,J)=MI,J)+A(l,K)*T 

continue 

CONTINUE 

CONTINUE 

TO ^.1 r»l # N 

IP(A(t # I).EQ.O«PLX(J. # <9.)) GO TO M 
RETURN 
1 RY I 
CCNOai.U 

IF(.V(1#1) .NE.C^PLXP.i^iLvI)) RETURN 

EXACT SINGULARITY 

CCND a i. i'E+32 

RETURN 

END 





irr-li IX15KX VP3 ' CiWS WIFIIRENCR UJJTIVG iO-AW-79 P3: 50.1 53 PAGE 00003 
> POPP i AC PV03C.X. -'OPlAtF POP?! P.V22« 00023- 00027- 00030 


A 

POPP 1 AG 

p V03CX 

•MOIMF 

00021 

0.V22* 

00023- 

00027“ 


00031- 

.\U32» 

POP3'® 

000411P 

00045IP 



caw 

POP IMF 







OIPL.N 

PPP.V t F 

PPP3.TTF 

AV41IF 

POO .IMF 




Covn 

PPPP1AG 

POPP 5a 

0PP44- 

00047* 




PKCOfW 

awubu 







1 

iWVSttt 


pppisir 

AVi* 

P.V.VVO 

POP? 7 

0003500 


POP ’.VO 

P0041TF 






im 

i\wi\n 


AW?» 

MsViflm 

00020- 



,1 

PPOPMN 

AV2 0V X) 

P.V3P 

ayti 

*\W32 

00035 


X 

PPOPMN' 

»WiU>0 

‘00012 

PPPi 3 

oooimf 

PPPif! 

OOOIMF 


•VP 2 2 

VP23 

00027 

OOP 3 1 

P.1P32 

OOP 35 


KB 

P00P5IN 







KM 1 

PP.VMM 







XPi 

awmm 

p.vi:> 

0. VI 400 

AV2GTSO 

AV29DO 

AY?$TO 


M 

. AWV'IN 


OOP IMF 

pooia* 

PvVitl 

OOOIMF 

PPP21 


PPP3P 

>\v:n 






M 

P.VOlAG 

.VO.VIN 

PPPP3CX 

.V.V4TM 

pp V7 

POOPS IF 

POP IP 


PPP.V 

’■li'JW 

PPP2GX3 

pop .3 r.oo 

ooo.vno 



NVMM 

P.VPIAG 

AWVIN 

POPP PCX 






PPP.'M.V 


P.V11DO 





t 

P.V03CX 

* vi Vt 

'AV21* 

0P023 

00P24IF 

P.V27 

00030- 

000.32 

WtK 

» n p ' 

*\\v;\n 







:r> 

•v fc r 4 .::\> 

AY17* 






\> 

,-.%V2 7>0 

/ vnn* 






25 

.W^WP 







W 

,V,VTO' 

.\\VVMT 

POP3F* 





.15 

Av;;ro 

AY2WT 

POP3«* 





.-u 

*WV;\> 

AV41* 






W 

.\\v<wr 

AWM* 






<v 


AY47* 







P.1 221 

00022 ' 
POP 1400 

PPP33IP 


ORTflWAE r\GF. IS 
1-i'iiR IJUAUTY 


RT~li INDEX V,’ 3 SOURCE LISTING 


iO-APU-79 PAGE 000.11 


SUBROUTINE EIGRF(A,N, LA, 1*108 ,V,Z , JMT, SCALE ,UR,tiI «HK' IER) 
FUNCTION - TO CALCULATE EIGENVALUES AND (OPTIONALLY) 

•EIGENVECTORS OF A REAL GENERAL MATRIX. 

ARGUMENTS A - INPUT REAL GENERAL MATRIX *V ITI ! RCW. 

DIMENSION IA AN* 1 .) COLUMN DIMENSION 
AT LEAST N, 

N - ORDER OF MATRIX A. 

IA - RON DIMENSION OF MATRIX A? IA MUST 
BE GREATER THAN OR ECUAt. TO W. 

• IJ08- OPTION PARAMETER: 

IJCR*U, COMtWE EIGENVALUES ONLY 
ijoa=i, compute eigenvalues and 

EIGENVECTORS. 

<>' OUTPUT COMPLEX VECTOR OF LDNOni M 
CONTAINING THE EIGENVALUES OF A. 

7 - QUTPIJT N BY N COMPLEX MATRIX 

CONTAINING THE EIGENVECTORS OF A; 

TtlS EIGENVECTOR IN COLUMN 3 OF 7. 
CORRESPONDS TO THE EIGENVALUE 'v(J). 

I NT, SCALE ,*\’R,>' I ,V."< - WORKING SPACE 

IEU - lER»;?.f+J INDICATES THAT -'ORE THAN 
30 ITERATIONS WERE RECJIRED TO 
COMPUTE THE JTH EIGENVALUE. EIGENVALUES 
J+i,0+2, . . . ,M HAVE PERN CORRECTLY 
COMPUTED, MULE. EIGENVALUE". 1,...,J 
ARE SET TO EERO. NO EIGENVECTORS ARE 
COMPUTED. 

INTEGER I, fA, IER, I EUR, IGU, L.700,,1, LIW,N 

INTEGER INT (IA) 

DIMENSION SCALE (I A) ,VR(LA) ,'a'I (IA) 


■\W5 


Pr-«KNST0N A (LA, V) ,VX(IA',N) 



COMPLEX (\'),D (IA, N) 

»V.V7 


IRE*.' 

■WVrt 


IE ( IJGR.NE. .'•.AND. I0DR.NR. 1) IGOU=l 



CALL PALANC(IA,N,A,.LC'M, IGU, SCALE) 



CALL ULUSES ( I A, N, LCD , IGU, A, INT) 


c 

EIGENVALUES ONLY 

.\M12 


IF(T.70*'V>'E.i') GO TO 13 



CALL II PR (LA, N', Id.'', IGH, A,' , ‘R,VI, IERR). 

•’■VIS 


if u err. me. »') go to do 

n t“7 
i '« *'i f 


GO TO 30 


V. 

EIGENVALUES AND R IGENVIMC TORE 

W I •' 

* ( 
X ‘ 

"ALL ELTRAN (IA, N, LOV, IGU, A, INT/'K) 

.VOID 


CALL U?RE ( I A, N, Id'', IG1 ! , A,V R,’'T ,V.R, IER-R 

* i 'M i 


IF (IERR.NE.0) GO TO ?3 

^ ( \ A *> 


CALL HAUVAK ( I -A, N, Id' , IGU, SCALE, M, O R) 



-GC VO GO 


c 

ERROR HANDLING 



ir'.R=iOr+TRRR 


S' 

ENCODE EIGENVALUES AND EIGENVECTORS 


c 

AS COT/PLRX M J v 'HD'vS 

.\V25 


: X7 A! Isi,N 

i\V?3 

-M 

*'* ( I ) ”C'M PLX ( 0 U ( I ) 1(1)) 

tJ0^27 


IF(I.)OR.K0.,*.on. IER. NR. 3) RETURN 
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A 

O.OOOlAG 00.Y5DI 

OOJIO.AG 

0001 i AC 

OOOM.AG 

0001CAG 

0001 PAG 

RALANC 

V0010CL 






BAU’AK 

0J022CL 






C'H’LX 

0002.5 000.32 

J0034 

00035 




KIGRF 

0000 M’J 






SLMilES 

OOOiiCL 






ELTRAN 

ooomcl 






11 OR 

OOOMCL 






IIQU2 

oooipcl 






I 

iVJO?JO 00025DO 

03024 

0003 ODO 

00032 

00034 

00035 

IA 

OOJOiAG '000 21.0 

0P.003IN 

00 00 4 or 

00005DI 

oooo rex 

000.1. WG 03011. 


000 MAG OOOifAG 

OOOMAG 

00 02 PAG 




IER 

OOJOIAG 00 002 IN 

00007= 

00024= 

0 00271 F 



I ERR 

00002IN 000 MAG 

OOP! 5IF 

00' MAG 

00020IF 

00024 


IG!1 

OOO.’PIN 00010.AG 

0001 1 AG 

000 MAG 

00. ’MAG 

oo oi P ag 

00022AG 

I JOB 

OOOO.iAG 0P0O2IN 

00003IF 

00009= 

oooiprr 

0002711' 


IMT 

0J031AC 00003IM 

OOOiiAC 

00 019 AG 




J 

00 03 21 N OOP 2930 

POO 3 11 F 

00032 

0.003'rr 

00034 

0003511' 00035 

La-; 

P00P2IN OOOMAG 

•OOOiiAC 

000 MAG 

OOOMAG 

00. 019 AC 

00022AG 

M 

OOJOIAG ,VJJ2rM 

000P5DI 

ooo. rex 

00010AG 

0031 1 AG 

00014AG MOM 


O' 0 MAG 00022AG 

0002500 

0002500 

0003.230 



SCALE 

ooooiag oyjo.ri 

POP MAG 

00022AG 




K 

op.-oiac pooomx 

00024= 





M 

OOJOiAG P0P04RI 

.VO MAC 

00 01 PAG 

00 02 A 

0003 IT F 

00033IF 00035 

WK 

OOPJiAG 0000531 

OOOiSAG 

00 01 9 AG 

00022AG 

00032 

00034 00035 

’•'ll 

popoiag ooo.mdi 

.VO MAG 

00 01 PAG 

0002' 




POP 'I AG P.VP5CX 

00.032= 

00034= 

00035= 



10 

0JP13GT .'.VIS* 






20 

0001 5GT POOPIGT 

00024* 





30 

000173T POP.23GT 

00025* 





40 

J'\'25nO 00025* 






5i3 

.OJ32PDO 0003030 

03037* 









. ■mp^:^ y f^:^ **tsiT9*y t * *f** *-s wbytm n^*w wv** ^y*<v#^^***g 


; ( 


) i 


rcr-u index vo3 source listing 


■W-APR-79 03: 37: 19 PACE 00001 


00001 

< 5UUROUT INE ELNUES (Mi4 , N , LOW, K 

00002 

INTEGER r,J,K,N,LA, NM , IGH f KP . 

00003 

REAL A(MN,M) 

00004 

REAL X,Y 

00.005 

REAL N?S. 

00304 

INTEGER INT (IGH) 

00307 

LO, =101-1 

00 OOP 

■(Pl=LO' , +l 

00009 

IF(LA.LT.KPI) GO TO 230 

00011 

DO 193 M=KPl,L/\ 

00012 

m;.i1=-i-1 

00013 

X=0.0 

00014 

T=4 

00315 

DO 103 v7=*\IGM 

00014 

IF (MS (A(0 ,MMl) ) . LE.ABS (X) ) 

003 IS 

X=A(U, v Mi) 

00319 

t=J 

00020 100 

CCUTTNUE 

* t » r> • 

^ i. 

INT (,v)=I 

00022 

IF(I.EO.M) GO TO 133 

c 

********** interchange rove 

00324 

DO 110 J=4Nl,N 

03325 

Y=A(I *3) 

00324 

A(I,0)«A(M,J) 

30027 

A(X,G)=Y 

00023 110 

CONTINUE 

02029 

no 120 0=1, IGH 

30033 

Y=\(0 , 1) 

00031 

A(0 , T)=A(J ,M) 

00332 

A(J/n=Y 

00033 120 

CONTINUE 

C 

********** |.>'D interchange 

00034 130 

IF (X. EC. 0.0) GO TO 190 

00333 

"Pl=N+l 

00037 

no 140 I=MPi, IGH 

00032 

Y=A(T ,N*11) 

00039 

If (Y.EO. 3.0) GO TO 193 

0004 L 

Y=Y/X 

00342 

A(I,4Ml)=Y 

00043 

no 143 OM,N 

00044 140 

A ( 1 ,0)=A(I ,0)-Y*A( N, »0) 

0304 b 

PO 153 0=1, IGH 

03044 150 

X(l,.1)=A(J,v)+Y*A(0,I) 

33047 143 

CONTINUE 

03349 193 

CONTINUE 

00349 200 

RETURN 

00050 

END 


ORIGINAL PAuS j$ 
01' ROOK QUALITY 
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rt-i: 


A 

A r M5 

ELMIIES 

I 

IGH 

INT 

.7 


:<pi 

LA 

LOW 

M 

HM1 

•tPi 

M 

MM 

X 

Y 


INDEX V03 CROSS INFERENCE LISTING 10-AFR-79 ^3 : 37s 19 PAGE 00002 

O0v)27= 00030 


AWIAG 

■00031= 

0O005RL 

000.USU 

W0.-J2IN 

0O031 

00.M1AG 

O0001AG 

00002IN 

00027 

00045 

vn ■• ■M T • j 
SiVSnM.L-y 

aw ^ in ' 

0OO01AC 
AW 2 IN 

00027 

.WAGIN' 
O0002IN 
,‘O.MIAG 
00001 AG 
03.V4RL 


00O03RL 00416IF 
00032= 00038 
oooisif 


00019 00025 00025= 

t3i3iJ42** 0OO44= 00046* 


00014= 

00O37DO 

0J002IM 

04003TN 

0001500 

00029DO 

04008= 
00*507= 
04002IM 
00 01 IDO 
00031 
00012= 
01039= 

00002IM 
00002IN 
OR A 13= 
03.; 2 5= 
00044 . 


00019= 
00038 
00003IM 
00021= 
0001 GIF 
00030 

0OO49IF 
000O9IF 
00008 
00012 
00032 
0001 GIF 
0033 TOO 
00003RL 
00003RL 
0001 GIF 
00027 
00-043 


00021 

00042 

00007 

00-018 

00031 


00022IF 00025 
00044 00049 

00015DQ 00029DO 

00019 00024DQ 

00032 0004 3DO 


000111)0 
00 01 IDO 

00014 
00039 
00018 


OO015DO 00021 
0004 3DO : 00044 
0002400 00038 


000 24DO 0OO43OO 

00018= 0OO34IF 00041 
00030= 00032 00038= 


00029 00030 

OO037OO 0OO45DO 

00025 00O29 

O0O44 O0O45DO 


OO022IF 000-26 

00049 

00042 


’.0039IF 00041’ 


100 

•0001500 -O0O17GT 

110 

0-4024DO 00028* 

120 

OO029DO 00033* 

130 

00023GT 00034* 

140 

4.V42DO 0O044* 

150 

0004500 10049* 

1 30 

0003700 0O040GT 

180 

0001100 00035GT 

200 

.WiOGT 00049* 


W0* 


00047* 

00048* 
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INSEX W3 SOURCE LISTING 


10-APR-79 *04:21:14 PAGE iWJ3 


dOMi 

SUBROUTINE ELTRAN (MM, N, 

,\W2 

INTEGER I , J , N , 1<L , Mi<1 , M P, 

lV,V3 

REAL A(MV,IGM) ,Z(MM,N) 

M.V.4 

INTEGER IMT(IGM) 

C 

********** INITIALIZE.! 

.V,V5 

no ?o i-i , n 

WX, 

no M .7=1, N 

tUM7 'V 


.V.7.13 

2(i,n«i.»i 

iwuni «*j 

CONTINUE 

••MiU.-i 

!<L=IC l-LO.v'-i 

Wli 

II-T<L.L7.i) GO TO 200 

c 

********** for} vip=lG!l- 

iMJi3 

00 1-7.7 Mi v =l,!CL 

14 

MP=tG'l— MM 

.Y.7I5 

>TI="P+I 

Ot-JICi 

DO 1.7.7, I=MPi, IGM 

tli?.’ 17 120 

2(I,MP)=A(I,MP-I) 

.win 

I=nT(OP) 

win 

IP(I.EG.MP) GO TO 14(3 

.VO 7 1 

DO 130 ,7 -'IP, IGU 

.70.722 

ZrP,J)=Z<I,J) 

00.723 

Z (t,J) =••).. 7- 

,\V24 i-'O 

CONTINUE 

.70025 

7. ( I ,MP)=i. 0 

.7.V2S 14, » 

CONTINUE 

0.7027 :>.v 

RETURN' 

MJ29 

SMO 


********** 


rrr-i: imdex vv3 
N rWViAS 

XTRAM ,\V91GU 
C 002M2IM 

CCH >\r.vi..\c 

[NT .W.M1AG , 

I 0<rV.'?.l4 ■ 

CL iYV’2IM , 

-Ow v’J.MiAG , 

w i’.iji’niM , 

cp i\\\’2rv , 

.W25 


^FL'REN'CE LISTIMG i,}-A PR-79 J4 j21jI4 PAGE AJ.VJ2 

v ^!® 0 'I'l'lil ***** wo:? 

.Vi >2 5 ■ , 

V™?™ /•MW AM14 i?r\vInDO JM2iOo 

k.'?k)v'«IN *Vh;i8 

.WJ.^DO <J;?C%)7 O.W2IDO J-.1022 OM23 

•’>ViC= VWiilF /J/I3D0 
•V.V2IX Jtf/i.l 
.C.M13D0 .Mill A 

J XU7 •’‘’•'18 JJJ19IF 00X7 IDO 00*922 


WAV 

.’WIF* 

)l\c, 

l\W2IM 

*L\o 


hag 

*V’.V3RL 

0:X> 

v\VL7* 

nno 

,W2<1* 

000 

^V20GT 

./'w * 

iV.127* 

! 'v70 

<V.\V7* 

5;X> , 

.\W?* 


RT-li 


INDEX W.i GOURDE LISTING 


IO-APR-79 vMs 26: 13 PACE M.Wi 




subroutine cm imv a, u,mr/.it) 


C 

GENERAL MATRIX INVERSE 


c 

INPUTS ~ NR •- NUMBER, a* ROWS IM A 


c 

MC ~ NUMBER OF COLUMNS IN A 


c 

A = MATRIX TO BE I\B/ERTEP 


c 

MT « MOT USED 


c 

OUTPUTS- U * INVERTED MATRIX 


c 

MR = RANK EF INVERTED MATO IX 

vW.W2 


DIMENSION A(l) ,U(i) ,S (3.1 ) 

.WU03 


Ca*l'-lO*iAO!^\MR/ MOIM 

00,104 


NDI v *I“MOI t ^I 



tol=i. i>;.: 

.WOOr. 


AEV*i.f>24 

.10007 


MP=MC 

0.1005 


NUMi^iR-1 

.WOOD 


TOLi-.i. 

0.1 010 


7J-I 

•1.10 1 i 


DO 1C .7*i/C 

.mo n 


S ( 7 ) =ROT (MR , A ( 7.7 ) f A ( J J ) ) 

.MO 13 


IF (0 (7) *Gf*TOLi) TOLIES (J) 

i.i,> • r. 

•M*1r A J 

Xtr* 


-« y y 1 r 
» i’i’i O 


?OL>\nv*TOLi 

n V7 

» / 1‘ t • A. t 


ACV^rOLi 

in y • r> 
t" i'iu 


7j=i 



no icc j « i,mc 



FAC=S ( 7 ) 

\\YC2l 


J^I~7r*i 

CM 22 


JRM«7.J4NR*I 

CM 23 


jcv=7j+j^; 

cm?a 


do 20 i=aj,jCM 

CM2 5 

-7 1 
/ ♦/ 

U(I)=0. 



uc7om)=:.j 

CCC21 


IF(7 fc EO*I) 30 TO 54 

CCC2? 


a^-jl 

CCC2C 


DO 30 J‘11 

CM 31 


IF(G. (X) .ED.I.0) GO TO 30 

.\M33 


TF ; *l P=— DOT (NR , A (O J ) , A ( NX ) ) 

v^,)34 


CALL VD.DD (■:, TEMP, U (.70 ) ,'J (KK ) ) 

lAiDr 

i/ik- 

2C 

XK=XK+\*DI'4 

/W‘ 35 


DO 50 0=1,2 

iV.^37 


XK s i 

*NV*30 


DO 50 !<=I,JMi ■' 

»7' : Y?9 


IF(G (X) .F?.0.) GO TO 50 

.w<; 


■TIM P=-DOT (>'7 , A ( 7 J ) , A ( KX ) ) 

CM *2 


CALL VACDCM7 , TE'-’P, A (J J ) ,A(«X ) ) 

,W43 


CALL VD.DD (X , TFA’P,U (JO ) ,t < (i'0< ) ) 

CJC'AA 

QJ 

:<'<= : rc-wDr-t 

CMA5 


TDL 1- l’OL * FAC +A DV 

,W45 


FAC=OOT (NR, A ( 7,7 ) , A (00 ) ) 

CM A 7 

r„ a 

I r ’(FAC.Gr.TOLI) GO TO 70 

cccw 


DO 55 I =00 , JiV-l 

CCC5C 

55 

A(T )=•). 

Cv,C51 


f.(7)=0. 

CCC52 


XK=1 
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RT-11 INDEX V»'3 SOURCE LISTING 


10-A PR-79 04s. 25s 10 PACE 00002 


00053 


DO 55 

00054 


IF (EC's l.HO.O.) CO TO 65 

oooss 


TEMP® DOT {’.< , U (KK ) , U (.1 J ) ) 

00057 


CALL VAT)0(NR,TEMP,A(JJ) 

,10059 

55 

KK*KK4*OIM 

00059 


I7.C=00T(1,U(J.7),U(.1J)) 

00050 



000M 


GO TO 75 

00362 

70 

8(31*1.0 

ooo63 


xx«i 

00354 


DO 72 K«l,J4l 

oooss 


TF(F> (X) .EO. 1. ) GO TO 72 

cam 


?EMP«-DOT (NR, A [33) ,A(KK) 

00053 


CALL VACO (X , TEMP, U (OJ ) ,U 

000*9 

72 

XX*KK+N0rM 

can* 

75 

FAC"! ./SORT (FAC) 

.13.171 


DO 00 I--OJ.JRM 

0.1.172 

r.i 

A(I)*\(I)*FAC 

0.M73 


DO :’5 I*UP,JC>1 

00074 

85 

U (I)* : J (l)*FAC 

.10075 

A Uf5 

J0<JJ+MDIM 

.10.175 


NS.ND*NC*NDIM 

00077 


jj=i 

0.1073 


DO 135 

00079 


DO 125 1*1, NR 

00/50 


ii-i-j 

00031 


S(I)*.l. 

JO.-.? 2 


DO 125 KK«Crj,NESD,M)IM 

00033 

125 

S (11*8 (I )+A(II+XK)*U (XK) 

00034 


II*.l 

00035 


IX) 130 I«1,MR 

00.035 


U (II 1=8 (I) 

00037 

13.1 

It a I I+-NDTM 

00038 

135 

JJOJ+MDIMl 

00.139 


RETURN 

.10090 


END 
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fv-r* • * 
l\4 * 


rwcx wn o<ons ifcmtENce lustims io-ahwo M*2r» t ;p pack &V .13 

A\M7Dr A\U2 AM33 M.MI AM4PAG AW* k l,MS*1» 


«1«W74 

AV7-1 


A 

AW1AG 

•V.VHDT 

■AMI 2 

AM 3 3 


AM57AC 

,WiW7 

AM7.> 

AMP3 

AW 

AM.M« 

AMiA 

AMi?» 

AV4S 

ixrr 

am; 2 

AM33 

PAY 1 


FAC 

av;m« 

.W45 

OAWA® 

AW47rP 

G"IMV 

.%v,>isu 




I 

•WMDC) 

AY.?!? 

aw.x> 

AMM 

n 

.V\17 ft iX) 

AV3tl 

Jivs; 

AMP 3 

AM‘Y.« 

.M.J93 

AM84® 

O.MFA 

j 

AMI ISO 

am *2 

AM 131 T 

AV14 

JCM 

YiMSi 

,*,V59 


vM.V/ODO 

A.V23- 

.yamdo 

AM 2 A 

v1.M73rx.) 

JJ 

AVii> 

AM 12 

AMI 5® 

»M»UP« 


.V»VWAG 

AYMl 

AMONG 

.v.'-tAv; 


AVS9 

,\MA7 

•MAA.NG 

AM7ii)0 


*\Vr»SI«- 




.Ml 

AV21- 

AM 23 

AM3.mn 

.\V3«ixr 


AV22® 

AV4«DO 

AM71DO 


!< 

«\u.i.no 

ay 3 ; if 

AM 3 ‘1 Vi 

«',Mirxx) 


amsa 

.'A'X'iW 

iWAStt* 

.'.v?a\G 

<K 

♦\V2<1« 

AM33 

.MAM AC 

Ai.n r >» 


A\M.> 


AMF3 

2.M573C 



AMAPOO 

AMO 3 


r. 

amvoq 




MR 

AM»5I\G 

ai.m7« 

AV'M* 


MT ‘ 

.WViAS 




NJC 

a\m;*g 

AMV7 

ami 100 

AMiCno 

VDIM 

.Y.V*CM 

AMM 

AVI 5 

iiP. HA 


.\Y,7'** 

•M.M2DG 

AMP7 


mim; 

AMA1« 

AM?S 




AV7> 

MAMCO 



MA*i\MK 

•WV3CV 




UK 

* *' • M ’ A V * 

AM.M 

AM12 

P.M3? 


iVCVT 

AV-7<.MO 

AMPM) 


uum ; 


AM22 



v; 


am;> 

AM131P 

AMM 


»\Vf)«UP 

AMA2« 

AVA5IF 

AU’ili® 

F'.vrr 

i\V7^ 





AV31« 

AVMAG 

AW> 

AM-MAG 






TOL 


,MV,«j 



■IX'L* 

..WV?* 

AVI 31 F 

AMM» 

Pl'pl'*® 

II 

«\\vi\c, 

am ami 

AM?P* 



<\v \?\a 

AM7*** 

AMP 3 

AAA:?r>« 

V.V.T) 

A\vv:ct. 

AY AML 

AM43CL 

.VPA7CL 


■ 

amis* 



i*M 


AM7A* 



;::r? 


amstoo 

Amp?.* 


133 

♦wrtivx) 

AVP7* 



ur> 


AMPP* 




.v.u^no . 




.v 


AM AMT 

AM 35* 


5.J 

AV'Wo , 

AM.AHvv 

AVAr.T 1 

AM4-1* 

54 

3,\wr , 

AM-17* 




AM27IF 


AM 3 3 

J.M57AG 

d.YS2D0 


AMMtF 

A\M3\G 

»%V'.^V3 


J.M7S 

AM57AG 

ams> 

AU'»7« 






w-ll tMDK X’wV TO liKm^K LINING I^ARK/9 M*2S*18 PACK W«/| 


55 

.V.V.VOO ,\M5.l* 


55 

O.V5'ino i v V5SGT 

iM.isa* 

7.) 

tV.v/nr » , .?. , *,2* 


■72 

ti.vv.no .v.r^cr 

,\\r,n* 

75 

.V.' nC. ;' i\\V,V* 


80 

.\v7im ,Vi'?2* 


nr? 
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subroutine to compute hie vector sum 

SUBROUTINE VMt>(N,Cl,A # B) 

01, VISION! A(i),R(i) 

IX) i 1*1, N 
A(i)»A(i)«i*n(i) 

RETURN 

END 


O CD 


INDEX W3 CROSS REFERENCE LtSTENC lCrAPR-79 M: 26:10 PACK »W*W2 


A 


I 

N 

VMD 


•VUdlAO V',M2DI 
.’JrWiAG '.\\M2DI iWd4 
«\Y.)iAG .Y.V4 
2«AV3DO »\VM4 
AWIAG .V,Y3DO 
tAWlGU 

MM3DO 7.MM* 


j 220 

i 

I - ■'■■’■ 

i 

i 
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1J-AW-79 04 :03s 05 PAGE 00001 


00001 

00002 

00003 

00004 

00005 
00004 
00007 


c 

c 

ooo on 

00009 
000 xO 
•000 ii 

c 

c 

00012 
00012 
•00014 40 
00015 
00014 
00018 

00019 

00020 50 

00021. 


00023 >0 
00025 
0002 ' 
00027 

C 

C 

00022 70 
00022 
•0030 
.W 02 
00033 


'35 


oo o: 


30 

c 


03039 

00039 

00041 

00042 
0004 3 
00045 
00047 

00049 


00052 

00053 


SUBROUTINE !KJ< <NM,M,I£W, IG : I,H,WR/.VI, IERR) 

INTEGER I, J, K, L,M,N, Ivl, LL,MM, NA f NM, IGII, ITS, LOW,MP2, EMM 2, IERR 
REAL U(NM,N)>V.R(N) ,’\'I (M) 

REAL P» 0, R, 0 , T,'a’, X, Y, ZZ , NORM , ■•tACi tEP 
REAL S0«7ABS,STCM 
INTEGER 'IINO 
LOGICAL NOT LAS 

********** MACtiEP IS A MACHINE DEPENDENT PARAMETER SPECIFYING 
THE RELATIVE PRECISION OF FLOATING POINT ARITHMETIC. 
********** 

•WCl:EP a 2.** (-25) . 

IERR«0 
NCRM=0. 0 
N=1 

********** STORE ROOTS ISOLATED UY BALANC 

AND CONFUTE ''■•MATRIX NORM ********** 

DO S.M»i r N 
DO 4.1 

NORM “NORM +ABS (ti (I , J) ) 

K=r 

ini.GE.LOA'.ANO.I.ril.IGH) GO TO 50 
v R(l)=M(I,I) 

VI (I KUO 

CONTINUE • 

EN«IG ! l 

m«, i i 

i -»>•%/ 

********** SHARCl! for next eigenvalues ********** 

I F ( l'N . LT. ILK) GO TO 1001 

ITS =0.0 

NA=EN-i 

EN^2=NA-1 

********** LC0K ['OR SINGLE SMALL SUB=DIAGONAL ELEMENT 
FOR L a SM STEP -1 UNTIL LO.V PQ — ********** 

DO 30 LL*La.V,EN 

L-SM+LCIV-LL 

IF (L. EC. LOW) GO TO 100 

S=V'.3 (.1 (L-I, L-l ) ) EARS (!l (L, L) ) 

rF(S.EO.O.O) S=NOR4 

IF (AOS (II (L,L-i) ) .LE.MACUEP*S) GOTO 100 
CENT IN'. IF 

********** porm S!IIF r A ********** 

:<*u(EN',fi'i) 

IF(L.ro.rO'J) GO TO 2.70 

Y='l ( '”\ , NA ) 

' .=U (EM, i>lA)*'l (NA, EM) 

TF(L.EC.NA) GO TO 220 
ir(rrs.E0.30) go to ip.v 
rr(iTs.Uv. in. and. its. me. 20 ) goto 130 

********** fqrn I’XGEPT IOV.M, shift ********** 

t=t+x 

ro 120 I=LOV,KN 
!l(r,I)=T(I,I)-X 

S=ABS (;i (EN,NA) ) EARS (il (NA, FNM2)) 

Xc °‘ 7r> * S / ORIGINAL PAGE IS 

i ~'~ ^ (•)[■ POOR QUAUIY 


j 




'RT-U INDEX W3 SOURCE LISTING 


li3— APU— 79 (5'1:i? , 3:iJC> PAGE 


AW 54 
.10055 
amss 13.: 


tV.157 

. 1 . 1.153 

.W59 

avr.i 

A1.V>1 

.1JA2 

A1.533 

Al.15/1 

.ViJ^S 

.\\1<V5 

.V.1S7 

VW 53 

iJ&fS9 

.W71 

A1.173 i/„? 

»'>’’>) 7 <1 ISO 

AV75 

.1.1.175 

0.5077 

•V.179 

AM3J IV. 


.’0031 

AV32 

00033 

00095 

00035 

00097 

00033 

00090 

00091 


Y=X 

.*■“»»; «375*5«S 

ITS*ITS+i 

********** LOCK FOR OTO CONSECUTIVE SMALL 
SUH -DIAGONAL ELEMENTS. 

FOR M*EN-2 STEP -1 UNTIL L DO — ********** 
DO 1/1.3 «W*L,EN*t2 
M=KN« 12 +I.-viM 
7Z=M(M # M) 

R®X-7.7 
S =Y-7Z 

P®(R*S-».\)/H('.i+l # >U+H( y #M+H 

0*H(M+I,M+i)-22-R-S' 

R*U ( v .+2 ,.*!+!) 

0=3135 (P ) +ABS (Q ) +ABS (R) 

P-P/S 

9 -J/s 

R=R/S 

IF(iV.EQ.L) SO TO 150 ’ 

IF(0R:: (*| (M, m -1) ) * (ABS 0)+-AUS <R) ) .U:.MACU8P*A3S (P) 

)‘+A0S (ZZ j +ABS (il (F+i # .44-i) ) ) ) GO TO 150 

•'P2=M+2 

DO 150 I=v|P2,EN 
!!<r,T-. 2 )=,l.U 
IF(I.EO.MP2) GO TO 150 
!l(I,I-3)=.l..l 
CONTINUE 

********** DOUBLE QR STEP INVOLVING ROWS L TO EM AND 
CLOUMNS A TO EM ********** 

DO 25.1 X=M,K\ 

MOTLM5=!\.NS.MA 
IF(H.KO.vl) GO TO 17.1 
P='i ('<,!:-!) 

7=fl(K+l,K-l) 

R 

IF (NOT! AG) R=M(K+2,K-I) 

X=ARS (P)+ABS (Q)+ARS(R) 


.W93 

P=PA 

i\W4 

9=9 A 

.\V95 

R=uA 

17,7 

S- 5IGM (SORT (p*p40*n+K*R) 

J.5.797 

IF (R.EO.M) On TO 19.1 


M(x,t;-l)=-s*x 


GO TO 190 

AUOI 1W 

IF(L.ME.M) M(K ,!<»!) =-:!{!< 

iV.;o3 :iv 

P»P-K> .... 

.U1J4 

X=p/S 

iv;.J5 

YKVS 

tVi.iS 

7.7== tVS 


.MIB7 O^Q/P 

.M103 R-R/P 

C ********** |K>; MODIFICATION ********** 

999 
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.v,o? 


IX) 21.1 J=K f EM 



p*ii(K,.7)+o*n('<+i,J) 

2' 1 J il 


IF(.NOT.SnTIAS) GO TO 20.1 

o.i: 13 


P«P+R*M(K+2,J) *' 

>MII4 


M(K+2,j)»!l (K+2,J)-P*Z2 

.M115 

9 1 1 

*lk.2 

!1 (!<+!,,!) =51 (R+I, J)-P*Y 

.Vi 16 


H(K>-.7)-lj(K,J)-P*X 

.Mi 17 

T* 1 

comtt^jx 

•Vi 18 


J=MTM0(EM,K+3) 


r» 

********** COUJ^N MODIFICATION ********** 

Xu 9 


no 23.1 I=L,J 

0012.1 


P=X* l(I,5<)+Y*M(I,K+i) 

.Vi 21 


I F ( . NOT . NOTLAS ) GO TO 220 

.VI 2 3 


P=P+7Z*:i(I,K+2) 

Ml 34 


!I(I f K+2)=:i([,K+2)-P*R 

.Vi 25 

222 

i 1 { I , K+l ) =’. 1 ( I , !\+I ) -P *Q 

.VI 2 5 


•1(I,X)=H(I,K)-P 

•Vi 27 

232 

CCNtlM'JS 

.Vi 2° 

2f>2 

CONTINUE 

22129 


GO TO 7r0 


c 

********** |;qTP FOlfMQ ********** 

.Vi 3.5 

27.1 

•••'R(t:\')=X+T 

.5.5131 


'.,'I(F.:!)«.1.0 

.VI 32 


EN*N.\ 

2.1133 


GO TO V 



********** -p % Q PCUOD ********** 

.5.1134 

2P2 

P= (Y-X)/2. 0 

A5I35 


n=p*P4<.; 

.5.5135 


ZZ'-SCRT(ABSO)') 

00137 


X=X+T 

•5.1133 


IF(0.LT.0..1) GO TO 32.1 ' 


Vv 

********** L PA Itt ********** 

.5.114.1 


ZZ=P4f>IGN (22, P) 

.5.1141 


V!R(>IA)-*X+ZZ 

.Vi* 2 


r(n\) 

.MI-13 


IF(ZZ.NE.2 # 2) *'R (EN ) “X^.v/22 

.5.1145 


VT(NA)=2.2 

.5.5146 



,5.5147 


GO TO 332 


/** 

********** COMPLEX PAIR ********** 

.1.1143 

322 

V. R (M\)“X+P 

,5.5149 


V ,: R(EM)~X+P 

.'015,1 


\I(MA)*Z2 

00151 


wi(nN)^-7.z 

.1.1152 

3*^ 

uN-EMMS 

00153 


GO TO 32 


C 

********** SF/r NSRR'V. — NO CONVERGENCE TO 


p 

EIGENVALUE AFTER 32 ITHRATIOMO 

,5.1154 

1222 

IERR»SN 

0.5155 

i»vi 

RETURN 

,VI55 


END 






RT-il 

ABS 

BN 


.‘•wrns'p 

M INM . 
,-W 
:>1P2 
!>; 

M'\ 


I. '/EX V, 3 .ROSS REFERENCE LISTING 1G-APR-79 i34s 03s'»* f > PACE 00004 

mu dim?., mmr'msz mss mnip ».mcu 


000.35RL 

00135 

iV002IM 

00042 

00132= 
00.302IN 
000, HAG 
■Jim?. 

.'^.17-'= 

•Jvlil 3 

,20125= 

000, HSU 

00.202IM 

.30,551 

00124 

00 J01AC 

0.2 001 AG 

0.2,\22IN 

00.2.22IN 

00114 

0.20G2IN 

00034 

00114 

>3.512') 

00002IM 

00053 

00 ,3021m 

00.2, HAG 

300,2 2IN 

00.274 

00004RL 

000.34IN 

0.3,5 .3 2 IN 

,30.5,321V 

000.31AG , 

iV,5.32r.M , 

00,302 

0.30,2 lAG , 


,5,3021= 

0 JO 5, 'DO 

.3,5142 

0,3.127= 

00003RL 

0.5051= 

,3,1,379= 


.30023IF 

00052 

00144 

,3,3,352 

,5,3,314 

,30,352 

,3,5,325 

0.3115= 


0,3024 

00075DO 

00144 

0,305700 

00018 

00059 

,30034 

,3,3114= 


,3002800 
00109EX) 
00149 
>30 0 59 
02032 
.3.3042 
00,399 
00120 


,30.1.51 

00152 

00035IF 

0004.3 

00099= 

00123 


0001200 

0,307500 

00125 

0.3002IN 

00002IN 

0,3.325= 

.001300 

00118= 

00011= 

0.20.99 

0,31.15 

00029= 

.5 .3059 IF 

0.3028DO 

0,1 0021 M 

0.3053= 

.5003100 

.5.30.58= 

00118 

05057DO 

.50.174= 

0.3002IN 

0.3024= 

0 3132 
0.3.302IN 


,30014 
,30074 
00128 
00009= 
00014TF 
00045IF 
0,3014 
OOH9DO 
,3001300 
000 97 IF 
00114 


,30015 

00077IF 

00154= 
00,321 
00047IF 
0 >31,3900 

00015= 

0,3099 

0011.9 


00014IF 00013 
00079 0011990 


00071IF 00090 

00033 00039IF 

00130 00131 

00152= 00154 

00,338 0,3041 

00044 0<5,571IF 

,30102= 0011,5 
00124= 0,3125= 


00019 OOOSODO 
00120 00123 


00054=. 

0011,3 0,3113 

00,38100 00032 
00102 001,3900 

00120 00123 


00030IF 00032 00035IF 0003 DIF 

00101IF OOH9DO 

00,329 

0001 SlF 00.323IF ,2002800 00029 
00059 00,242 0,2.243 .30,144 

00,283 IF ,’0.3 97 IF 001 Oil F 
03035IF ,3,3071IF 


0,3114 0,3115 

0.303 31 F 00005 
,50 a i,. 00113 

00124 00125 

0004 3 IF 0005700 


0,303.0 IF ,2,3,550100 
00049 IF 0,2071 IF 


00,57500 
,5,2 003P.L 
00027 
0,3141 
OOOOJRL 


0001200 ,3001300 


NORM 

Y.l.WRL 


00014= 

N'OTLAS 



•30028IF 

f> 

v\MMRL 


00045 




001.54 



Mllfi 

0.2120= 


.^135 


0,3148 

Q 

\W*.,:4hl 

i\^r>3= 

,3,7055 


^i52i 


0.3107= 

R 


rOi’ n : J~ 

,3 GO-47 


iVJ37» 


0,3,390 


M12A 



fj 

Mt'.MlXL 


,10033 IF 




00,143 



,\^3 

00104 

srGM 

.V«5RL 

AV9G 

0,3140 

SCOT 

\ J#’v)5KL 

JJ/J9G 

00135 


00 ,2 77 IF 
0001200 
,20.341 
00112 

00034 

00111IF 

00,344= 

00107 

,3.5123= 

00149 

00,247= 

00 a 1>3 

0004.3 

0,2095= 


0,3042 0,504 3if 


00145 


0,504 31 
00149 


00,352 

,3,3150 


,3,31 21 IF 
.30071 IF 00085= 

v. 0 a >23 ,3 v) a a 0 = 

0,3124 0,3125 


0,3125 .0,3135* 

0,3044= 00055 
.3.3094 001,1.4 


00105 


0.2090 

0,5113= 

00124 

,30090 

,5,3134 

0.5039= 

00100= 

00053 

00042 


0003100 


0,3,393* 

,30114 


.20094 = 
00138IF 
•30,371 IF 
.10113 

0,3055 

00095= 


7 .f Hvcffw *s 
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T 

O0004RL 04022= 

00.049= 

00130 

00137 




w 

C0004RL Ovid <12= 

00055= 

00052 

00135 

00144 



WI 

OOOOlAG 00003RL 

00019= 

00131= 

00145= 

00145= 

00150= 

00151= 

kr 

, ,’0.1 ,11 AG 00043RL 
.10149= 

00.113= 

•0013.1= 

00141= 

00142= 

.10144= 

00143= 

X 

00044RL 01039= 

00049 

00051 

00053= 

00054 

00050 

00090= 


•lvl091IF 00093 

00094 

00095 

00099 

00104= 

00115 

00120 


00130 00134 

00137= 

•0.1141 

00144 

00148 

00149 


Y 

00004RL 00041= 

00054= 

00051 

00105= 

00115 

00120 

00134 

22 

00.M4UL 04059= 

00050 

00051 

00053 

0OO71 IF 

00105= 

00114 


00123 00137= 

00140= 

00141 

0014 3IF 

.10144 

00150 

00151 

Ufl 

J0031GT 0003737 

00038* 







0004'GT 

.100243? 

•.V050DO 

04. ’5700 
0047.1GT 
4,V,75!V) 


00 154* 

.Ml 55* 

04051* 

40054* 

0.1.173* 

0OO72G? 

.M07RGT 


,10474* 

40084* 


170 

00034GT 00095* 

ICO 

O0O95CT 00101* 

190 

0,01. MG? 001.13* 

200 

0O112GT 00115* 

21.1 

0010900 0.1117* 

220 

0.11323? 00125* 

23.1 

0011900 00127* 

250 

0003100 .M092GT 

270 

0.1.14.X3? .M130* 

280 

00.1440? 00134* 

320 

00 1093? 0O148* 

33.1 

001-17G?. 0.1152* 

40 

0401300 .00414* 


All 28 * 


0001 2DO 000173T 
4V23* 001333? 

.‘■’.'7,3* .l.’' ". 9cvyi» 


a.ov.o* 

wzrx) 


AIR 2.1* 
00153GT 


00129GT 
.Mil 37* 


ORIGIN M' PAGE IS- 
i\:. s'( v i, OG.AJ.l i'Y 


I 
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00001 SUBROUTINE HCR2 (N4,N, LOW, IGH,U,WR,Wt,Z , IERR) 

00002 INTEGER I,J,K, L,M,N,CM,II,JJ,LL,MM,^,W4,n!N, 

+ IG 1 1 , ITS , LOW , M P2 , EWM 2 , IERR 

00003 REAL !!(N;V0 />VR(M) ,V.'I(N) f Z(NM,N) 

00004 REAL P, 0, R, S,T,’N, X, Y, RA, fA, VI , VR,ZZ , MDRM,MACtIEP 

00005 REAL SORT, ABS, SIGN 

00005 INTEGER MIN0 

00007 LOGICAL NOTLAS 

00003 COMPLEX 23 

00009 COMPLEX CMPLX 

00010 REAL REAL, AIM AG 

C ********** MACUSP 1 , \ MACHINE DEPENDENT PARAMETER SPECIFYING 
C VAE RELATIVE 0RECISION OF FLOATING POINT ARITHMETIC, 

p tfr* ik * •ki r , , fi 4rk* 

00011 MACH2?=2.**(~26) 

00012 IERR=0 

00013 . NOR '1=0. 0 

.■0014 X=i 

r ********** STORE ROOTS ISOLATED BY EALANC 

C AMD CO-1PUTE MATRIX NORM ********** 

00015 DO 50 1=1, N 

00015 DO 40 J=X,M 

00017 40 NOR •i=NORM->ABG (11 (I , J) ) 

000 IS X=I 

00019 IF ( I. GS. LOW. AND. I.LE.IG’I) GO TO 50 

00021 WR([)=H(I,I) 

00022 V! I (I) =0.0 

00023 50 CONTINUE 

0,0024 E!!=IGH 

I ^ ^^5 1 *' *** ^ ^ 

c ********** SEARCH NCR NEXT EIGENVALUES ********** 

00025 50 IF(EN.LT.LOW) GO TO 340 

00028 ITS=0 

0.0,029 N.\=EN-i 

00030 ENM2-'*A-1 ' 

q ********** LOOK FOR SINGLE S' 1 ALL SUB-DIAGONAL ELEMENT 

c FOR L=EN STEP -1 UNTIL LOW DO — ********** 

00031 70 DO SO !,L=LON»EN 

00032 L=EM+LOM-LL 

00033 IF(L.E9.T0U ! ) GO TO 100 

00035 S=ABS (II (L-1,L-1) )+ABS (U (L,L) ) 

00035 IF (S. EC. 0.O) S=NORM 

00033 IF(ABS (tl (L, L-l) ) .LE. v AC!iEP*S) GO TO 100 

00040 HO CONTINUE 

q ********** FORM SHIFT ********** 

00041 100 X='!(F.N,EN) 

00042 rF(L.EC.EM) GO TO 270 

00044 Y=M(MA,NA) 

00045 ’-.'=11 (EN,NA)*H (MA , EN ) 

0004-5 IF(L.EQ.NA) GO TO 230 

000,49 IF (ITS. DO. 30) GO TO 1000 ' 

00050 I F ( ITS . ME „ 10 . -AND. ITS . NE . 20 ) GO TO 130, 

r ********** form EXCEPTIONAL SHIFT ********** 

00052 T=T+X 


226 
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00053 


00 120 I=LOW,EM 

00051 

120 

H (I » I)=H (I , I)-X 

00O55 


S=A<3S (t | (su , WA ) ) +ABS (1 1 (NA , EN 4 2 ) ) 

00.355 


X =0.75*3 • 

00057 


y=x 

00053 


w =- 0 . 4375 *s *s 

00059 

130 

ITS*ITS4i 


C 

********** LOOK FOR T.VO CONSECUTIVE SMALL 


C 

SIJO -DIAGONAL ELEMENTS. 


c 

FOR M=EN~2 STEP -1 UNTIL L DO — ********** 

00050 


DO 140 .vm«l,E'!M2 

00051 


M =E f 'H2+L— 1M 

00052 


ZZ=H (f4,,M) 

•00053 


R=X-ZZ 

00054 


?>-' 1-7,7. 

00055 


P= (R*S J \’)/H(M+i,M)+H (,M,M+i) 

00055 


>!!(iM4-1,m+1)-ZZ-R-S 

.00057 


R=H (.v -+2 /-.+!) 

00053 


S=AS3 (P) +ABS (Q) +ABS (R) 

00059 


P=P/S 

0.0.070 


Q=0/S 

00071 


R=R/S 

00072 


IF(V.EO.L) GO TO 150 

00074 


IF (ASS. (!l (M/4-1 ) ) * (ABS (Q)+ABS (R) ) ,LE.MAC1I3P*A8S (P) 

■ 


4- *(A9S (!i (M-l,M-i) ) 4-ASS (ZZ)4-ABS (H (M+i/M+i) ) ) ) GO TO l! 

00075 

140 

CaiTrvjE 

00077 

150 

MP2=44-2 

00073 


DO 150 I=4P2,EN 

00079 


M( 1, 1-2 )=0.0 

00030 


IP('I.EQ.>5P2) GO TO 160 

\ * <0 9 
r , W i/ r> 0 


il (1,1-35=0.0 


VI 
X '*» 



c 

********** DOUBLE OR STEP INVOLVING RONS L '.’0 EN AMD 


C ■ 

COLUMNS M TO EN ********** 



DO 250 K=M,MA 



MOTL\S=K.NE.MA 

>W3S 


IF{'\. EQ.M) GO TO 170 

.3.LW8 


P=H ("./(-I) 

*:.W39 


2=H(X4-i,K-l) 



P.=0.0 

*1M91 


I F ( NCTLAS ) R=H (K 4-2 , K-i ) 

•W*93 


X=ABS (P ) 4-ABS (0 5 4-ABS (R ) 



IF(X.EO.0.0) GO TO 2' ; 0 

■Wi??S 


P=PA 

Wi!97 


Q=Q/X 

V >r\o 


r=r/x 

*v..:99 

17 ,7 

G=T,IG\' ( 'OUT (P*P+Q*OW*R) ,P) 

.W1M 


IFCI.EQ.M) go TO 130 

IWI 02 


li(K,K-l)=-G*X 

*\uo3 


GO TO 190 • 


IPO 

IF(L.ME.M) H (K f K-l)=-H (X,K-1) 

o.^rr. 

19.1 

P=P4S 

WIJ7 


X=P/S 



Y=0/S 
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INDEX VOS SOURCE LISTING 


10-A PR-79 J3:39:»i PAGE WW3 


00109 

*wi;a 

win 

c 

,w;i2 
W113 
Ml 14 
mis 
tW117 
WHS 200 

who 
00120 210 
00121 

00122 ^ 

00123 

00124 
00125 
00127 
00123 220 

00129 

00130 230 


00132 


00133 
00135 

00134 
00137 


ooio; 

00142 

00143 

00144 

00145 
00145 

00147 

00149 

00149 

00150 

00151 

00152 

00153 


0*5155 
00157 
001SS 
001 so 
ooir>; 


22aR/r, 

CKVP 

n*n/p 

********** ncw MODIFICATION ********** 

DO 21*5 J«K,N 
P*M (K,0)+Q*H (K+l, j) 

IF( .NTTA'OTLAS) GO TO 200 
P“P+R*U<K+2,J) 

U {K+2|0)®;{ {K+2, J)-P*27. 

M«!M,J)»H(!<+1,0)~P*Y 
U (K f J) a U (K, J)-P*X 

continue 

J«MTM0(EN,K+3) 

********** CCLITI'J MODIFICATION ********** 

CO 230 I«1,J 

P a X*! « ( I » K) +Y*Il (I , K+l ) 

IFt.NW.tOTLAS) GO TO 220 
P»PnZ*!!(I,K+2) 

H(I,K+2)»KI f K+21~P*R 

il ( I » K+i ) { I , K+l ) -p *0 

CONTINUE 

********** ACCtMULA'fE TRANSFORMATION'S ********** 
DO 250 I*L0W,ISH 

P«X*7(X,K)+Y*Z(t,K+i) 

IF t . NOT . NUT LA R ) GO TO 240 
P«P+7.Z*Z(I, K+2) 

2(r,K+2)«Z(I,K+2)-*P*R 

^(r,K+i)a?.(r,x+:)-P*o 

za,;o«?.(r,K)~p 

CONTINUE 

continue 

SO TO 70 

********** nosy? FOUND ********** 
l l(EN,f*!)«X«' 

*• R(EM)»lt (5N,EM) 
v KEN)‘0.0 

’-:n«na 

GO TO 50 

********** TO0 roots FOUND ********** 

P»{ Y-XJ/2.0 
Q*P*P+W 

2Z»S03TW1S(0)' 

H(E\\EN)*X4T 

X*'l(eN,EN) 

H (N\,N\)-Y+T 
IF(O.LT.O.O) GO TO 320 
********** REAL F'AIR ********** 

2Z*P*5TGN(?.Z,P) 

’•«*R(NA)«X+?.Z- 
NR ( EM ) <• ’R (NA ) 

IFUE.ME.U.O) VR (F;i}®X- JI VZZ 

''’I(NA}*0.0 

WX(gN)«,3.*5 


j»'« Wm 
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irr-u index wo source suiting 


liWVPW-79 .tt»39idl PAGE 00004 


.Ml « 
ooir>3 
001C.4 
ooir>5 
0016S 
ooir.7 

00158 

00159 

00170 

00171 

00172 

00173 

.Vi 74 
00175 
03175 
.Vi 77 
00179 

0.1170 

ooiro 

.Vi 31 
001 P 2 
ooi si 
001C4 

001155 

00135 

00137 

00133 

00133 


00191 

00133 

00194 

00195 
00195 
00197 
00153 

00193 
00? V 
00301 

00303 

0030-1 

003.05 

00205 

00207 

00209 


C 


250 

C 


300 

C 


310 

C 

320 


330 

r* 

V. 

c 

v,0 

C 


.... 


x«n 

f?*A!lf> (X) t-ABG ('/?.) 

P»X/!> 

0 "Z2/S 

R*;cnT(P*P-*Q*'0) 

P«P/R 

Q*9/R 

********** IVJ.V MODIFICATION ********** 

IX) 290 J*NA,N 

M(NA,0)«9*X7.+P*n(KN,0) 

M(t:N > 0)«O*U(EN t .1)-P*7Z 
CH 'TINGS 

********** axtH^ MODIFICATION ********** 

no 300 t«*l,m 
ZZ*H(l,NA). 

Il(I*MM«Q*Z7.+P*1UI t ES): 
ll(I # IN)«Q*!Mt»U'»)-P*ZZ 
COMTINU ' 

********** ACCUMULATE TRANSFORMATIONS ********** 

DO 310 t«LCW # I3M 
nr.«2{i # i'’A) .. 

X(t,AA)*»7*27+P*2(I,m) 

7a,::s')»7*7(l,J34i~P*37. 

CONTINUE 

GO Tn . ORtJf'fM **• 

<.*«*****«* COMPLEX PAIR ********** WKIOlNAI. J'AOR fg 

VR(N\)«X+P UF POOR QUALITY 

VR(EM)*X+P 

'■T('1A)«7.2 
V t(EN )»-/. 2 

********** ml ROOTS FOUND. PACIIStBSTITJTE T X) FIND 

vector;; of upper tri.anc.uiar form ********** 

tr(N’OR.'.FO.O.O) GO TO 100 i 
********** [>X :i ( RN«N STEP "1 UNTIL 1 50 ~~ 
r*,? 900 NN»i*N 
SS!**HT-NN 

p*;r(EM) 

D«f»!(KN) 

N\«KN-i 

IF (9) 710,500,000 
********** hem, VECTOR ********** 

M »<•;>! 

HIEN.WW.U 
IF(SN.E'3.0) GO TO !MO 

********** pqh i»bn-i step “1 u sr nL 1 do 

oo 700 n«i,N\ 
l-KN-ll 

R«U(l,IN) 

IF( M .C7T.N\) GO TO 520 
1X7 510 J*M,NA 


4 ) t, A A 
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PX-ii INDEX W3 SOURCE LISTING 10 ARWO 03 1 39*01' FACS 00005 


00210 



00211 

*2*1 

■IF('‘ , I(I).G8.»\0) GO TO 530 

00213 


7.7 *W 

00214 


f?«R 

00? IS 


GO TO 700 

00? If. 


M»I 

00217 


IFC'KD.NH.O.O) GO TO 540 

00219 


T«W ■■■■■■..::■ 

00220 


TF(V.RO.O.O) ?**tAaiEP*NCW 

00222 



00223 


GO TO 700 


c 

*******(.*(. SOLVE SEAL EQUATIONR ********** 

00224 


X«U(I,I+1) 

00725 


Y«Mia+i,n 

0022.5 


n« <’• n ( r ) -p ) * ( '.‘ii ( i ) -p ) Mft i ( i ) *k i ( i ) 

00227 


T«(X*S-ZZ*R)/0 

00229 


M(t,IN)«T 

00729 


IF(AUS (X) .tl'.ABS (77) ) GO TO 550 

00231 


It (1+1, IM)® («!M\'*T)/X 

00232 


GO TO 700 

00233 

w 

!l (1+1, VM)“ (-R-Y+T) /Z7. 

00234 

7*V 

cwrivus 


C 

********** END.. REAL VECTOR ********** 

00235 


GO TO ‘VO 


c 

a********* COMPLEX VECTOR ********** 

0 323.3 

7IJ 

M«*'A 


C 

********** • f JVT7T VECTOR COMPONENT CHOSEN IMAGINARY f>0 'TOM’ 


c 

EIGENVECTOR MATRIX If. TRIANGULAR ********** 

00237 


IF ( ABS (! 1 (EM , UA) V . LE . ADS (’ 1 (N.\ , GN ) ) ) GO TO 720 

00279 


It (MA,M\)-'.VR(AM,:4A) 

00240 


■!IC'«A,IM)»-fl(!W,tN)-P)/M(G'l,M\j 

00211 


GO TO 730 

00242 

7S J 

2 2 (0 , 0, I (NA, EN ) ) /OUX (U (M,\. MA) -P, 0) 

.V74 3 


1 1 (NA , : JA ) *REAL (7. .3 ) 

00244 


U (NA, IKJ^.MMAG (23) 

00245 

7 V 

•t(EM,M\)»0.0 

00245 


'l(nN,tN)“1.0 

00747 


1-:N42 b *'IA~1 

00249 


IF(t?!>t2.EC.O) 00 TO 000 


C 

********** pcR I®EN-2 ST 'IP -1 UNTIL 1 DO — ********** 

♦ *")C 1 


m 790 n*l, BJM2 • 

,v3s; 


t 

,\)?32 


( r , i > -p 

M253 


!IA«0, 0 

ivaw 


SA«!I(I,1N) 

M255 


DO 751 .T«M,NA 

.va*^ 


RA«RA-Ml( 1,0) *11 (.1,-NTV) 

M?‘ r >7 


S.A*SMM (1 ,0)*il ( 1 , KM ) 

?V253 


CONTINUE 

•V259 


IF(WI(l) .GE.0,0) GO TO 770 

MS >1 



MS'S 


R*lV\ 

iV2ftl 


<;«SA 

.MJW4 


no TO 7W 


250 




RT-ll INDEX V03 SOURCE LtSTttQ 10-APR-79 03i 39s 01 PACE 000.V5 


00255 

770 


O02<55 


IF(M (I) .NE.0.0) GO TO 73 0 

002-59 


2 ?*C*PLX (-RA, -SA ) /CMPLX Q) . 

01259 


M(I,KA)«REAL(Z3) 

41271 


ll(I,IN)»,M^G(?.3) 

00271 


’ GO TO 790 


C 

********** SOLVE COMPLEX ECUATI0M3 ********** 

00272 

730 

X=!l(t,Hl) 

00273 


Y 1 *! 1 (1+1,1) 

00274 


. W « (M3 ( I) -P ) * ( KR ( 1} -P ) +w t (I ) *V?I ( I ) ~Q *o 

00275 


vi*(vn(t)-p>*2.j*9 

00275 


IF(VR. t:0. 0. 0.AVD.VI . FC. 0. 0) VR=4ACnEP*NCR4 
+ * (Ann (W) +AB8 Q) +ADS(X ) +ARI, (Y ) +ABS (ZZ) ) 

00272 


Z 3»OXPLX (X*R-2Z*RA-K*SA, X*$-ZZ*SA-Q*RA) /CMPLX P/R, VI) 

00270 


:|(I,N\)«RE/VL(Z3) 

00250 


U(I r iN)*AMAC.(Z3) 

00221 


tF(A2S (X) .LE.ARS (7.2) +ABF (0) ) GO TO 755 

00223 


*l(t *•!♦:<%)» (•'RA-* ,; *:i ( I , W\ ) ( I , IM ) ) /X 

0020-1 


M(I+l,E4)«(-r,WV*H(I,LN)-Q*H(I,NA))A 

00205 


GO TO 790 

00205 

725 

?.3*CMPLX (-n-Y*:i (l,XM ,~G-Y*U (I , EN) ) /CMPLX(ZZ,Q) 

00207 


'! (T+1,M\)«REAL(Z3) 

00201 


:i(IH # I«)»M'V*G(Z3) 

00209 

790 

ccntinje 


C 

***** ***** f>jj5 COMPLEX VECTOR ********** 

00290 

O 1 * 

K/»> 

CONTINUE 


c 

********** non »ac:< s'uaiiTiwrioN. 


c 

VECTORS OF ISOLATED ROOTS ********** 

00291 


DO 340 I®1„N 

00292 


IFfl.CS.IXK.AND.I.IJE.Kill) GO TO «/.0 

0*3294 


DO 920 J«i,N 

00295 

3M 

2(l,1Hl(I,J) 

00295 

O'M 

ccmMus 


C 

********** ;.-,UI.TirLY BY TRWFCRMATION MATRIX TO GIVE 


c 

VECTORS OF GRIG I HAL FULL 4ATRIX. 


c 

FOR J«N STEP -1 UNTIL LC« DO — ********** 

00297 


DO C90 .7J*LO\',N 

00292 



00?.v9 


■4=41X0(1, IG!t) 

00300 


DO 0?0 l=LGW r I3!l 

00 3 ' x 


22=4.0 

•10302 


no ?>5 .3 k=lo»'.',m 

00313 

^,1 

ro«::z+z(i,;t)*H(K,j). 

00 V 4 


2 ( 1 , 0 5 =22 

00305 

fN {> * 
» ■ 

OCMTINUS 

00305 


GOTO 1001 


r' 

********** SET ERROR — NO CONVERGENCE TO AN 


r * 
i- 

EXGENVMJJC AFTER 30 ITERATIONS ********** 

0030? 

Mm 
19i • 

n:nn=F.N 

00305 

A tV A 

RETURN . 

00309 


END 


051 


RT-11 

.MIS 

A HAG 
C-'PLX 
IM 


DM2 


'lean 

r ■ 



n 

ITS 

J 


JJ 

K 


I. 

r.L 

low 


INDEX V03 CROSS ilEFEREK'CE LISTIM3 l**m-79 03:39t01 PACE Ml 


OvVoskl 

0.1I/!« 

OOOlOtU, 

00009CX 

00002IM 

*’0.145 


245« 

00177 

00199* 

00201 

OOIMO 

oooro 

00002 IN) 

002501X) 

0000 1AC 

.'.W5 

00079“ 

WU'! 

ooi79« 

00210 

00239* 

00.354 


00017 
03113 
00244 
.’O'M 2 
03024“ 

ooorono 

00150 

0017400 

00194s 

00210 

0024? 

00201 

00000s 

03003RL 
0001:4 « 
00082* 
001 17® 
00142s 
00172» 
00222* 
00240“ 
00250 


00035 
00 2 29 If’ 
00270 

00219 

0002 II F 
00055 
00151 
00175 
00195 


oo.vinu 

000021 M 
00051 
00127 
00 1 3“ 
001 92 
00 "> •> *» 

00270 . 
00794 
00 303 

0OOO1AG 

' *• ' * * <ws 

» t, *• t i* \V» 

0030090 


0“ 00223= 


00227 

00244 

00294 

00055 

00017 

00055 

00072 

00117= 

00143 

00175 

00224 

00742 

00257 

00204“ 


00035IF 
03237.TF 
00290 
00273 
00029 
00078DO 
00157 
00177 
00191 
00220 
00245 
00201 
0003 ODD 

00031 

00052 

00059 

00119« 

001 5.5* 

00171= 

00225 

03243“ 

00259= 

00295 


00055 

00277 

00223 

00281 

00031DO 

00121 

00159 

00131 

00197 

00231 

00241 

00283 

00051 

00035 

00015 

00092 

00123 

00151 

00177“ 

0022C* 

00244= 

00270- 

00287“ 


00053 

00281IF 


00032 

00142 

00111 

00132 

00199 


00074 IF 00093 


3233 
00254 
00307 
00189 


0003RIF 

00011 

00102® 

00121 

00152“ 

00200 “ 

002.31“ 

00245= 

00272 

00283“ 


00041 
00143 
00112 
00101 
00200 
002371 F 
00257 


00042IF 

00144 

00171 

00188 

00204 

00239 

00270 


00247* 00248IF 


00041 

00017 

00105® 

00127“ 

00112 

00205 

00233= 

00241“ 

00273 

00295 


00044 

00074IF 

00113 

00128“ 

00170 

00201 

00237IF 

00252 

00279= 

00303 


00002 tM 
00002IM 


4 03. '3 

00002 r:i 
oooo.oim 

v;-o 

I'll / . 

’0129 
V002IM 
’0011 
V002IM 
•0001 AG 
'01 3 IDO 


0001 ECO 
0007300 
0 1128 
•V317400 
00204“ 
00274 
00754 
00277 
00771 
00304 
0000 2 IM 
00002 IM' 

00 20. 3DO 
00028“ 
000191X1 
01121= 
o mr-rrio 

00304 

0.079700 

00014“ 


00017 

.00079 

10129 

00175 

00705 

00225 

00759 

00773 

00237 

00012 = 
00 019 IF 


00017 
00090IF 
0013190 
00171 
00201 
00239 
00757 
00274 
0 5289 

00317“ 

00024 


0001 91 F 
00032 
00132 
00177 
00210 
00223 
33259IF 
00775 
0029100 


00204 00250DO 00251 

0.1048TF 0005 UF 00059“ 
»V017 0011200 00113 

00122DO 0011*170 O0170 • 


.'0251 


if 


57 >V?.94rv) 


00119 

00132 

00032= 

0.M72IF 

0003100 

00002 I M 

0017900 


00793 

000 mo 00019“ 
00 a 00 IF 00*02 
00119 00121 

00 


138 


.1.103470 
00105 
00173 • 
00137 
00038 IF 


00* 31 
O.V33IF 00035 
00104 IF 
00037 

00019IF 00021IF OOOlinn 
00 292 IF 00297DD 00298 


‘ 00021 

00022 

0005370 

0012200 

1 00123 

00171 

00135 

00131 . 

00137 

0017*130 

00180 

00191 

0021 IIP 

00211 

00217IF 

00731 

00233 

00251“ 

00215 

00211IF 

00219 

0027*1 

00280 

00283 

00292IF 

00295 

0030000 

0017980 

00292 IF 

00299 

0011*1 

00117 

00118 

00171 

00172 

00209130 

00295 

00297® 

00299 

00085 

000311 F 

00098 

0011209 

00113 

.10111 

00121 

00127 

00178 

001.19 

00302DC) 

00303 

0004 21 F 

k\r 1/ l » t P 

OOOIODO 


00032 0003 3 IF 00053DC 

00302110 








RX-;i INDEX V03 CROSS REFERENCE LISTING W-APR-70 *13s 39s»31 PAGE <50103 


M 11002 IN *70 381 ® 

10077 OO 0 S 4 DO 
10216 = 10 , 236 ® 
MACHS P *701*MRL Will® 

MINI OdvWSIN ■ * 7.3121 

\\A 0 O 002 IN O 0 J 81 DO 

v,p 2 0 J 102 IN 10177 = 

ti 1 O 001 AG 


MM?. 
00185IF 
0*125500 
038IF 


V» i> * 


00055 

ooiooif 

00285* 

00074IF 


00055 

01104IF 

00299“ 

00221 


00067 00072 IF 

00199® 00207 IF 
0030200 
00277 


0O074IF 
00 2 0900 


•V02IM 


00299 
00061 ■ 
0007900 
01003RL 



0.0.5.12IN 00029* 

0,3031 


0*1035 *73145 

0*5152 


0017*1 10171 

10175 


01197= *5,1211IF 

10233DQ 


10240 01242 

01243 


00255 0.3269 

01279 

KM 

0*301 LAG 01.102IN 

00O03RL 

:V.A 

00012IN .V193DO 

11194 

NORM 

0.1004RL 50.013® 

11117* 

NOTLVS 

10 01 7 LG .5.7085= 

11391 IF 

P 

0.7O04RL 01055= 

*71063 


01099 1.1106® 

33107 


00113 10119 

10123= 


01135* .70138 

00137 


•13166 00167® 

*10171 


00185 00185 

0*12.74 .70275 

00195* 

o 

000.04RL .100.66= 

01068 


13099 10108 

01113= 


1,11 531 F 00165* 

00165 


,7,1131 01132 

0,5195® 


30263 03274 

00286 

00275 

R 

00 00 OR L 00*553* 

00165 


10.390* .70092= 

*10093 


03127 10136 

01155= 


10223. 0*7227 

1123.1. 


RA 

REAL 


SA 

SIGN 

sort’ 

T 


VI 

VR 

W 


’.\T 


00 0301 F 
00 01 EDO 
0029100 00 29*100 0029700 
00044 
00156 
00175 
10217IF 
00244 
00233 


00037 

OOli'IF 

00069® 

00110 

00125® 

00133 

00172 

00205 


01*11500 

00290 

00045 ■ 

00157 

00130 

0020900 

00245 

00204 


00112DO 0016900 0019300 


00046IF 

00160 

00131 

00236 

00247 

00235 


00055 

00162 

00135 

0023711’’ 

00251 

00207 


*1008400 

0016900 

00187 

00239 

0025500 


00 1911 F 
0*1 124 IF 
00074 IF 
00111 
00127 
00167® 
00176 
00226 


030.14RL 00253® 
00243 
00035® 
,10065 
001*16 
00227 
00254* 
00*199 
.10099 
*’0025* 
00227* 
00275* 
00274= 
00045 * 
0.122OIF 

00264 
000.11AG 
00196 


M \* A* I 

00004RL 

00064® 

00102 

00214® 

M004RL 

00005RL 

I V*\ > 

00014RL 

00222 

0 . 7 .U 4 RL 

*M004RL 

00004RL 


•00*170* 

00113 

00163* 

00193IF 

00277 

00066 

00098= 

00167 

0*1262= 

*10262 

00279 

00*537= 

00069= 

00103 

00263* 

00263 


30074IF 

0*5128 

00171 

00226* 

00270 


00221 

00133IF 

0*1030® 

0/0113* 

*10128 

*10148 

,10177 

0*1240 

*5*1009® 

*10137 

0*5172 

00227 


00277 

00093 

00116* 

00129 

00155 

00181 

01242 

00093 

0*1140® 

1*1175 

*10239 


00281IF 00233 


,10*167* 

00099 

0,1163 

00270 

0,1263 

00287 

00 *5 38 IF 

10069 

00109 

00279 

007.69 


00 2 '0 
0003 61 F 
00066 
00107 
00233 
00257® 

00155 : 

00149 00166 

00052® 0*5142 00150 

00228 00231 00233 

0027'tF 00278 
00276IF 00277= . 0.1273 
v ),* > 'iR2= *50065 0014.3 

00231 .00252* 00261 


00068 

.10109 

00206 = 

00286 

*1*5273 

,300 55= 

*10070 

00163= 


00071* 

*10111= 

00211 * 

00203 

0005-6 

00*571 

.10184 


0.1196® 

00117 

10132* 

01164= 

*10132 

00252 

10*197® 

00149 

00177 

00242 

00284 

01074IF 

00115 

00214 

Cr-icr ; y, )• w r 
OF FOOR Qi’AI.n 

0005? 

00099* 

00165 


00273 00204 


00152 


01159 

0*7260. 


,10219* 00221* 


0,020,5= 

00277 


00003RL 01*322® 00144= 00160® 
00211IF 10 2 17 IF 0022.5 1125°IF 

233 


00151® 0*1187® 
*502 561 F 01274 


00213 

11283 

00133= 
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M OOOOiAG 00003RL 0OO21® 00143® 00156® 00157® 00159® 00 If 5® 


KR 

00 001 AG 

00O03RL 

00021® 


00185® 

00195 

00226 

X 

O0004RL 

00041® 

00052 


00094IF 

00096 

00097 


00132 

40142 

00147 


00163. 

00164 

00195 


00272* 

04277 

00273 

Y 

00O04RL 

00044* 

00057® 


00147 

00152 

00226® 

2 

OOOOiAG 

0000 38 L 

00132 


00181® 

00182* 

00296® 

7.2 

O0004PL, 

000-52® 

0006.3 


00125 

00135 

00149* 


00165 

•00170® 

00171 


00181 

00192 

00197 


00251® 

00277 

00270 

7.3 

040. "OCX 

00242® 

00243 


00279 

00280 

00285® 

100 

0O034GT 

04.)3<r,r 

00041* 

10.00 

0004937 

00307* 


1001 

4019:437 

0030587 

00308* 

120 

O0O53DO 

00054* 


• *\« 

0045107 

00069* 


140 

00050DO 

00075* 


150 

0007X7 

0007537 

00077* 

l'*0 

0047*80 

00081GT 

40033* 

170 

* > >o •***<•* 

1 

0-0099* 


180 

1 ■* * % » 

AO 4 

00104* 


190 

% 1 * * V^'t' 

%/ 1- JL V, . » .) 1 

00105* 


200 

kV-ilf/i? 

00118* 


210 

•Vi :.2DO 

00120* 


220 

iV125Ct 

00128* 


230 

.V122DO 

00130* 


*3/ n 

iVi yc? 

00137* 


— 

«Y 12100 

.’0139* 


260 

*W34no 

0009637 

00140* 

270 

*\V4r,T 

00142* 


230 

,y,\*^7GT 

00147* 


290 

ooi'ww 

00173* 


300 

\Yi7O0 

00178* 


310 

.Y I?*DO 

00133* 


320 

.MISFIT 

00195* 


334 

* 3 * r* V**i% 

* - * * A ■ . J 1 

00199* 


340 

.'002737 

00191* 


40 

00O161X) 

00017* 


54 

0 ?o;«Do 

'1 .*1 x^r'y 
> i 

04023* 

60 

00025* 

40146GT 

44 19 XT 

600 

00198110 

00199* 


610 

0020900 

00210* 


420 

0020 XT 

00211* 


530 

0021237 

00216* 


640 

04. 21 XT 

00224* 


650 

4023X.T 

00233* 


70 

00031* 

0414167 



' 00143 * 
00274 
00054 
0009ft 
00150 
00186 
0028 IIP 
00054 
00233 
00135 
00303 
00054 
00155® 
0O172 
00188 
00281 IF 
00244 
00287 


00156® 

00275 

00056® 

00102 

00151® 

00224® 

00283 

00108® 

00273® 

00135® 

0O3O4* 

00056 

00155 

0.5175® 

00213® 

00285 

00258® 

00288 


00057 

00107® 

00156 

00227 

00284 

00118 

00277 

00137® 

00074IF 

00158IF 

00175 

00227 

00301* 


00063 *0093® 

00119 00123 

00159 00162® 

O0229IF 00231 

00123 00132 

00286 

00138® 00180 


00109® 

00159 

00177 

0O229IF 

00303* 

00270 


00117 

00163 

00190* 

00233 

00304 

00278a 
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0020200 00219GT M2230T M2325T <>0234* 
00198IF 00236* 

00233GT 00242* 

00241ST 00245* 

0025500 00253* 

00240GT 00235* 


73 ^ 

002473T 00272* 

785 

00282GT 00235* 

790 

0025,’DO 00254GT 

30 

000? IDO 00040* 

300 

00 19 3DO 00193IF 

02 0 

0022400 00225* 

340 

0070100 00293GT 

350 

0030200 00303* 

830 

0029700 0030000 
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MMi 


subroutine leqt2C(a,n, r\ f n,M, m, ipvt,c, it*K,wK, ier) 


C 

FUNCTION “ MATRIX DECOMPOSITION , LINEAR EQUATION SOLUTION 


C 

FOR COMPLEX MATRICES. 


C 

ARGUMENTS A - INPUT COMPLEX MATRIX, DIMENSIONED N BY N. 


c 

N - ORDER OF A. 


c 

IA - RON DIMENSION OF A. 


c 

B - INPUT COMPLEX MATRIX DIMENSIONED W BY M. 


c 

ON OUiTUT, SOLUTION MATRIX X REPLACES B. 


c 

M - NUMBER OF RIGHT HAND SIDES. 


c 

IB - ROV DIMENSION OF U. 


c 

IPVr - PIVOT VECTOR 


c 

C,V.'K - 'NOR KING SPACE 


c 

H’.’K «?■ DIMENSION OF WK 


r* 

V. 

IER - TERMINAL ERROR I23+Ns 


c 

N » 2 INDICATES A IS SINGULAR. 

\* *1 ^ 3 2 


DIMENSION tPVT(IA) 

»W3 


COMPLEX A(IA,N) ,B(IR,M) ,C(IA) ,U'X(I'>,K) 



IER=.5 

>,W5 


NDIM=IA 



11*0 

■ ijjfcW? 


TO 1,5 .7-1, N 

WM3 


DO'iiVt«l,IA 

•M.W9 


ii«n+i 



V.K(II)*A(I,J) 

i%MIi 

u 

CONTINUE . ■ 

,W12 


CALL DECOUP (NDIM, N, A,CCND, IPVf ,WCUK) 

*%<«Ji3 


I F (COND. EQ.CCNC+1 ) GO TO 5.5 

k ?.nu5 


• DO AZ j»;,m 

■AW IS 


Q 

U> 

i— * 

It 

H * 

AM17 

21 

c(r>-3(i,j) 

AM IB 


CALL SOLVE (NDIM,N,A,C,IPVT) 

M.nn 


TO 3.5 I»i,N 

M.J2J 

** t 

-J « 

«(t,J)=C(I). 

MV2i 

4J 

CONTINUE 

AM22 


II =.5 

AW23 


DO 45 .7=1, M 

AW24 


DO 45 1*1, LA 

AM25 


n*n+i 

iWw?') 


A(I,.7K\-K(II) 

AV27 

<15 

continue 

AV2C 


RETURN 

AW29 

1.5 

IER=120 

AW 3.1 


RETURN 

AW 31 


END 


2 % 
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RPrii 
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-79 33:50:12 PAGE 33332 

A 

330/lAG 3/333CX 

03/13 

03312AG 

3331GAG 

33 3 21“ 


B 

33/OiAG 30/33CX 

0/017 

33323= 




C 

30031 AG 30/03CX 

03317= 

1/31 BAG 

33323 



COND 

03012AG 00013IF 






DECOMP 

0031 20 L 






I 

O/OO^DO .'001/ 

30/100 

0/317 

0331900 

33323 33324 DO 

33/21 

IA 

03/01AG V/002DI 

33333CX 

33335 

30308DG 

0332400 


is 

30001AG 0.1033CX 






I Ell 

OOOOiAC 00/3<1» 

30029= 





II 

03305= 30009= 

33313 

33322= 

33325= 

3/325 


I PVT 

00/31AG <’030201 

33312AG 

33 31 BAG 




IWK 

OOO/i-AG .V/03CX 






J 

3/337D0 00013 

3031500 

33317 . 

Z3.:23 

33323DO 33325 


LKjrx 

0300 ISIT 






M 

00301 AG 030/3CX 

3331500 





M 

0/ 30 lAG 03 .M3CX 

3333700 

3/312AG 

3331 IDO 

33 3 IB AG 3331900 

33/2300 

WHIM 

30005= .1 ‘VI 12 AG 

33 31 BAG 





SOL VS 

o/oiccl 







300J1AG 00003CX 

3/313= 

3/32-1 




WORK 

00/12AG 






13 

003/700 0/3/900 

0/ Vi* 





*} t 
#.»> 

3/01100 33317* 






3.1 

33/100 00020 * 






/!/ 

/.VI 500 0.3021* 






45 

/ 3/2330 0/32400 

33/27* 





5/ 

Wi-IGT 00 / 29 * 
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1’OOU QVlAUlX 
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AIWi 

SlllWOtffINE LIME 91 (NDM,N,A,C,: 

c. 

SOLVES AX + XA* + C “ 0 

30302 

COMMON /NOMAME/ NDIMl 

AWi13. 

DIMENSION ApDW'N) ; C(NDIM,N) 

00034 

DI M IMS I OM SCALE (S) 

c 

BALANCE TEE A AND C MATRIC 

00005 

CALL SUAW:(MDIM,N,A,LOV, ICH, 

oooos 

DO 10 1=1, N 

00337 

DO 10 7*1, N 

03033 

F,(I,J)=0„ 

00009 10 

E (I , I)=l. 

0081.7 

DO f:0 0=1, N 

00011 

t F (J . GS . LOW . AND. 0 „ LS . IGH ) GO 

00013 

K=SCALE(J) 

.LL1 14 

DO 20 1=1, M 

00015 

DUM=C(I,J) 

00015 

C(t ,.7)=C (I ,K) 

00017 20 

C ( I , K ) =DU 4 

00018 

DO 30 1=1, M 

00019 

DU4*C(J,I) 

00020 

C (J, T)=C (K, I) 

00021 30 

C(K,t)=DU4 

00022 

no TO 50 

00023 40 

2 (3 , J ) =5CALE (0 ) 

000.24 50 

CCMTIMUE 

00025 

\’DIMi=NDIM 

0002.5 

CALL G -1 INV (M , M, E, X, MT, 0 ) 

00027 

CALL M-1UL (NDIM,X,C,N’,Al,W,F) 

00028 

CA LL MMUL (NDIM , F, X, N, N , M , C) 

C 

SOLVE AX + XA* + C - 0 

00029 

TOL=.0001 

00030 

’>r=.5 

00031 

DTI =0. 

00032 

DO 73 1=1, N 

00033 70 

dti=dti+.a(i,i) 

00034 

DTl=-T r rl/>! 

00035 

IF(DTl-4 . 0) 90,90,80 

00038 80 

ryr=DT*4.o/nri 

00037 93 

DO 110 1=1, N 

00032 

DO 100 .7=1, N 

00039 100 

x(i,J)=nr*A(j,i) 

00040 **d 

X(t,I)=X(I,I)-.5 

02.34 1 

\!OIMl=SDIM 

.1034 2 

CALL (7 -I IMV (M , K, X, F ,MR, 3) 

00043 

CALL MMUL (NDTM, C, F, N,N,N, E) 

00044 

DO 133 1=1, 

00045 

no 120 J=1,M 

00048 120 

C(I,.7)=F(0f I)*DT 

00047 130 

F(t,I)»F<I,I)+i. 

00045 

CALL MMUL (■'.’DIM ,.C, E, N, N, N , X) 

0004? 

!X) 17.) IT=1 , 20 

00050 

’•'E7.=0 

00051 

CALL MMUL (NDIM, X, F , N, W, M,C) 

00052 

DO 17.7 1=1, N 


238 
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00053 TR(I)=X(I,I) 

( ' : 00054 DO 150 J=T,N 

M055 E(I,.7)=F(I,J) 

00055 K (.7 , T ) =F 

00057 no MO K=i,N 

.10053 MO X(I,J)=X(I,J)+F(K,I)*C(V) 

00059 150 X (.7, I)*X (I,J) 

00050 IF(/\S: ; >(X(I,I)-TR(I))-(.00000.5;4TOL*ARS(X(I > I)))) 160 , 150 , .17*3 

00051 150 NEG=NEZ+i 

00062 170. CONTINUE 

0005.3 irr=rr 

00055 IF(Mr3-M) 130,190,190 

00065 ICO CALL MMUL (MDIM, E, E,N, M, N,FJ 

00055 icy, CONTINUE 

00057 TOL--ITT 

C 'BALANCE BACK ‘HE MATRIX 

•10053 DO 200 1=1/4 

00059 DO 200 J=i,M 

00070 C(t,.7)=U. 

0,1071 E (I , I)=i. 

00072 IF(I.GG.LCX'/.AND. I.LE. IGll) E(I,I)=SCALE(I) 

00070 200 CONTINUE 

0JU75 CALL MMUL (NDIM, E,X, M, N, N,F) 

00076 CALL MMUL (NDIM,F, E,N,N,N,X) 

00077 DO 210 .7=1, N 

00073 I F ( .7 . GE . LOW. AND. J. LE. IGM ) GO TO 210 

00030 K=SCALE (7) 

00031 DO 220 1=1, N 

00032 ntM=X(I,J} 

00033 X (I ,.7)=X (I ,K) 

00.131 220 X(I,K)=nU>l 

00.135 no 2.30 1=1, N 

00036 nuM=:<(.7,i) 

00037 :<(7,I)=X(a,I) 

03033 230 X(X,I)=DUM 

00039 2 <10 CONTINUE 

00090 CALL MMUL (MCI 4, E, A,N,N, M,F) 

.10091 no 250 1=1, M 

00092 25,1 X (I , I)=1./E(I, I) 

00093 CALL MMUL (NDIM, F, E, N, N, M, A) 

00094 no 230 .7=1, M 

00095 IFU.GG.IC .'.AMD.J.LE. IG!i) GO TO 280 

.10097 . SC-SCALEO). 

00093 no 250 1=1, N 

00099 n*JM=A(I,J) 

0010.1 A(r,.7)=A(I,X) 

00101 2.50' .A ( I , :<)=DUM 

00102 !X> 27.1 1*1, >1 

0,1103 DUM=A(J,I) 

00104 A(3,I)=A(K,I) ~ 

00105 270 A(!',I)=nUM 

001,15 230 CONTINUE 

C TUG END 

• .10107 RETURN 
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00103 END 



24 0 


— r m “ " 1 , 11 " 1 " 11 - 




KDSX V.'3 CROSS mWC> U9TOO ****-*> '*"* 


02,30 1AG 

33130= 

002/-JIF 

J0335CL 

00331AG 

32.J27AG 

23 130= 

33231= 

,’’’15= 


,’.,1.10301 23 30 SAG 30*133 
00101= 00103 00104= 


00039 00090AG 33093,40 00099 

00105* 


G'U'^V 

I 


0000 1AG 00 3*5 3D I 
3W27AG 20328AG 
0333 ’= 33035 = 
30331= *’3033= 
33015= 30017 

03399= 00101 
03231AG 03 3 3 3D I 
•00055= 03055= 

20293AC 30092= 
23331AG 30*50301 
33051AG 30055 
333 93 AG 

22 3 2 XL 30342CL 
2202.500 00000 
30.519 00020 

0030 /DO 3-0045 
3-0050 00059 


00015 

0004 3AG 

3,0039 

00034= 

00019= 

00133= 

30003= 

00 35 SAG 

•000 9 3 AG 

30027AG 

00055 


00015= 
30045= 
0-0045 
3 03351 F 
00021 
00105 
30009= 
00070= 

0002CAG 

00053 


00017= 00019 
00 J4 SAG 00 051 AG 

00035 

00032= 00034 

00023= 0032.5 AG 

03,071= 00373= 

l 00042AG 3.004 3 AG 
00055AG 3,137 5 AG 


0002’= 00021= 
•300 53 


00035= 00083 

30043AG 00-04 SAG 
00075-AG 30075AG 

1 00045 00347* 

1 00075-AG 03 393 AG 



0239100 33382 


02.19100 03392 


20104 30135 

IGil 

3335 AG 030a j. IF 

r; 

2304900 03353 

itt 

020,53= 2-0057 

j 

300,1700 2332? 


33009 

00021 

03347 

30050IF 

03333 

3,309800 


003 14D0 
0307,200 
0005200 
2305000 
33234 
00399 


00315 33315 33317 vWxSDO 

30233 0303700 20239 

23053 0025400 23255 “225-* 

’0272 •02271 33072IF 02373.. 

3.333500 33335 3,2237 33203 

03100 33121 2010200 23133 


30372IF 30078IF 33095IF 


* 


1/ t' %' ** ^ 

23105 


20*559 

20233. 

23103 

'33315 

33284 


LIMEQi 

03021GO 

LQ.V 

0,V05.\O 0 


20.52.7CL . 


0.3392CL * 

•*<r 

23342,40 

«v«T 

00 3 2 •"•AG 

N 

033314G , 


** * i' ojr'n 

( *MI1W ' 


00042AG ■ 


000 570,0 


00.13100 

•iJOIM 

.V2314G 


03,v 9AG 

NOT'* 1 ! 

3 3 .' ,1 2C‘.' 

NEZ 

03350= 

NONAGE 

X J \ , ‘ ' -A, • ’ 

SCALE 

^ 1 ,, 
■ ,.,„,x,\u 

TOL 

03029= 

TR 

23 v3 01 AG 


0331200 

03311IF , 

0033900 

33339 i 

33259 

200,5900 

30385 

03337 

20104 


020x7 

03020 

03087 

02330 

23 37 21 F 

0.3073IF 

002 4 XL 

22 3 4 SC L 

.’300401 

23 3 05AC 


23.213 23215 03i>j.*> 

0024500 32 24 A 2205400 03355 
02. 7-0 2037700 32378IF 


00^-70 2037700 02278IF 03283 

0039400 2039510 2039' 7 23099 

03321 2, ’-25700 0,5358 3'Wfrjj* 

52397= 331**3 23131 *'*• •*•'•' 


02 00 30 1 ’032401 20«,43AU 
30325.AG 00227AG 30328AG 
•00. 3 4 ’AG 2034400 0334500 
232 5 41 F 23 25 5 AG 3235500 
3038500 3v'.290AG 2039100 
0003301 02035AG 00325 
•03 351 AG 222A5AG 20J75Vr 
00,125= 33241= 

00051= .030''',' 'IF 

0302401 20335AG 32313 
03 050 IF 30057= 

3302301 23353= 


3320500 
03032DO 
02 3 40. AG 
•0335900 
02 3 9 3- AG 
3 33 2.7 AG 
00 -37 r, AO 


3000700 

33034 

03351AG 

03 37 5 AG 

3039400 

03 3 2 8 AG 

0J090AG 


0331300 
2323700 
22 35200 
32 07 <40 
0.03 9°D0 

30241 
30 3 03 AG 


0022.3 30073 23083 23397 

OP.’OiN’/'.r; fa nr is. 


032A0IF 

241 
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X .3000LAG 00003DI 0W02CAG 00027AG 0002&AG 00039® 00040® 00042AG 

00048AC 00051AG 0O053 00058“ 0005?« 00050IF 00475AC 00075AC 

00332 00033“ 02084* 00085 03087® 00383* 


10 

00045DO 

00047DO 

00.309* 

100 

0003300 

04039* 


110 

0003700 

00044* 


120 

004^500 

40045* 


130 

0004400 

00047* 


140 

0 *'05700 

00058* 


150 

0045400 

00059* 


150 

0404, 'IF 

04051* 


170 

0405200 

00440IF 

04052* 

180 

0404 9D0 

0O454IF 

00455* 

190 

000 44 IF 

00445* 


20 

0041400 

00017* 


200 

0005800 

04059DO 

04474* 

224 

>: '■• •*'o 

04434* 


230 

00085 JO 

04488* 


240 

4047700 

04479GT 

00039* 

250 

0009100 

40 092* 


244 

0009800 

00141* 


270 

0014200 

*7)105* 


2P0 

0049 ''DO 

70495GT 04105* 

30 

0001500 

00421* 


40 

J00123T 

04423* 


50 

0401.100 

00.122GT 00024* 

70 

00022DO 

04033* 


30 

00035IF 

40036* 


90 

04035IF 

00037* 



2V2 


mn 11 


Will??. 

WW5 

WiVin 

i\liV 7 

ASMS 

ASMS 

1 M.H 1 I 

OMll 


INDRX V03 SOURCE LISTING ld-Al*\-79 <S3t&3t?.4 

; MAtUtX MULTIPLY 

r.iBiiotrriMK mmul (moim,a,b»n,l,m,c) 
ni'l'EWION* A(Nt5IM,U»U(^IM# N, >) »C(MOI'4,M) 

no i t«i,m 
no n*i,M 
i 

no 2 i«i»n 
no 2 j«i»M 

DO 2 K*i#L 

netuun 

ENO 
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MOdlAG 
OOOOiAG 
OOO.UAG 
0000300 
t\W‘*DO 
000,1800 
00,1.1 LAG 
VOOOiAG 
OddOiSU 
0003 LAG 
OOdOlAG 

oooo.ioo 

OddOADO 


0000201 00009 
00002DI 00009 
R.1.122DI .10005* 00009* 
.*0005 0.130 ADO 00009 

00005 0000700 00009 

00009 

00002DI .M008DO 
00002DI 000, V, DO 0000700 

00003DO 0000 AOO 
0000 2D I 

00 J 0<1 DO 00005* 

00007DC 0000300 .1,1 J09* 











INDEX VO 3 «E LISTING 


lO-AfR-79 03 s 59; -15 PACE 00001 


00001 


00002 

00003 

0000-1 

00005 


00010 

00012 

00014 

00015 
oooi n 

00070 

0002? 

00024 

00025 
00027 
00030 
00032 

00034 

00035 

00039 

00040 

00042 

00043 10 

00044 

00045 

00045 
00047 20 
00049 

00049 

00050 25 

00051 

00052 

00053 30 

00054 

00055 
00055 40 
00057 
00059 50 
00059 

00050 "'0 

00051 

00052 

00053 70 
00044 
00055 50 

00054 100 
00057 

00055 


SUUEOUTINE REWR(IIN, IOtfiyrrLNSW, IS, LASTID, ARRAY, IARRAY) 

SUIM30UTINC READS DATA FU04 I IN, COMPOSES HEW TITLE 
AND WRITES DATA TO IOIJT 
DI4DNSI0N TrLH^(5) ,A13DAY(IS) ,IARaAY(IS) 

DO 100 t“l, LASTID 
IP(I*D0.1) SO TO 10 
lF(t.E0.7) GO TO 20 
IF(I.E0.54) 30 TO 25 
IF(I.GS.3,AND.I.LE.i2) SO TO 30 
lF(t,0»E,32.AND.l,LR.34) GO TO 30 . 

IF(l,Gl,13.AND, T.LE.3I) GO TO 90 
IF (I. GR. 35. AW. I. LB, 49) GO TO 50 
tF(t,GE.59.AND.I.LK.50) GO TO 50 
IF(l.EC. 52.(7}, I.EQ.53) GO TO 50 
I P ( t . IV. 52 . OR . I . EO. 55 ) GO TO 50 
I F ( T . K0« 59, OR, I,' £Q. 70 ) GO 'TO 50 
IF ( I. GE. 115. AND. I.LE.123) GO TO 50 
IF ( T. CO. 57.0!. Ij:0. 59) GO 'TO 70 
ltd i • S #*4 • 71. AND. I. LE. 115) GO TO 70 
t F ( I . RO. 50. OR. I . t*0,' 51 ) GO TO 30 
tFd.FO.51) GO TO 30 
t F ( I . FO. 53 . 01. 1 . E 0. r, 4) GO TO 30 
I F( I. ICO. 55.0}. I.FQ.55) GO TO 40 
IF (l . ro. 55. Of}. I. E0.57 ) GO TO 40 
co ro loo 

READ (I IN) IDEM, LEN, (ARMY (I ) , J»i , LEN ) 

(FaLKN=LFN+S 

MUTE(IOUT) inEN,NKWLKN, (ARRAY (J) ,J«I,LDI) , (TTLNEW(J) ,J«1, 5) 

GO ‘TO 100 

REAR (I IN) IDEM, (t ARRAY (J),J»i, 7) 

WRITE (IOUP) IDEM, (I ARRAY (I) ,0*1,7) 

GO TO 100 

REAP (I IN) I DEN, ( tARRAY (0 ) ,J=1 , 4) 

''TOTE (l CUT) IDEM, (I ARRAY (J) ,3*1, 4) 

GO TO ±00 * 

READ ( t IN) TORN, NX, (ARRAY (J) ,0*1, NX) 

N NT “NX 
GO TO 50 

READ (t IN) IDEM, NX, (ARRAY (0) ,0*1, 2*NX) 

M.\T*NX*2 

MUTE(IOUT) IDEM, NX, (ARRAY (.1 ) , J»1 , NXT) 

GO TO 100 . ORIGIN A!. PAGE IS 

READ(IIN) IDEM, NX, NY, (ARRAY (J) ,J“1,NX*NY) \ T v 

NTOT*NX*NY 
GO TO 50 

READ (I IN) IDEM, NX, NY, (ARRAY ( 3 ) ,0«1 , 2*NX*NY ) 

1TOT » 2 *N X * N Y 

WRITE (lOar) IREN, NX, NY, (ARRAY (J) ,J»1,MTOT) 

CONTINUE 

RETURN 

END 


nx-u INDEX V,13 CttOSS REFERENCE LISTING W-APR-70 >13: 50; 45 PAGE ASM2 

ARRAY .M.l.llAG ,\1.W2DI $5.14 3RD dilMSWR .1.W53RD £M56RD - dM58WR Mt35,JRD 
.• \W*3RD .M.WSv'R 

* I *\1M300 C.W.4IF AVKJSIP CWM8IF AMldXF tf»12IF tKM14IF AMl^IF 

t'OdiCIF *M,120?.F AM22IF ,'i?024IF *M*J26IF AM28IF iW03dIF N432XF 
*M3*tF ,\\)35IF *500381? ,AS.14.)IF 
IARRAY D0.VIAG .M.M2DI AM47RD 0M4(UR 0*M5*3RD AM51WR 

IDEM AU43R0 ,M>145’.'R AM47RD &IJ48BR Ovl.WRD OOOSIWR MM53RD W05SRD 

»\l»I5f*.vR »WM2R0 AMS3R0 «M*3'59,VR 

IIM .1.W11AG .\K143RR M.147RD 0M55RD 00053RD 0OO5SRD iMilG.lRD O0053RD 

TOUT .M.M1AG .M04SKR .WM4GWR 000S1WR OJOSPWR &VJSSNR 

IS .Wl.liAO ,\3«W2DI 

J &M43RD ,W45VR AM47RD *M04(MR 0005ORD O0OS1WR 00053RD OOOSGRD 

.M.oT.VH .M2WRD iVJ-53RD *«»?59WR 
LASTID *M*\UAG *M>V3D0 

LEM ;VM43RD *M*1.4A .W045WR 

NEWLEN ',\\!44® *U143VR 
NTOT • ,10.151* ,V,154* ,1,M65'\'R 

NX ,\V*3RD *\\154 0.1.155RD il, 1,157 C0.158WR *.M,15,1RD .*MM1 OOOS3RD 

.’0,154 0,105«jWR 

NXT *VWf»4« J.I.15?* 0«M53WR 

NY .W'ulRD »W/» 3RD 0,1.154: 0,1,1S5 a‘R 

REWR .M.VlStl 

TTLN2V .V.W1AG 0.V02DI 0.V4SWR 

1*1 00.V5GT .41143* 

1*1.1 .M.ViDO .M042GT CO04SGT M04SGT OO052GT .M059GT 00.155* 

2.1 iM.VTC.T ,41.147* 

25 ,l*M.l«X?r ,',\15,1* 

3.1 .W11GT G.Mir.T *M033GT iV>,135GT 000373T 0.V53* 

42. .M2.VXTI' .4M41GT MW* 

50 ,T,V5fGT ,4V, 53* 

6.1 ,1,1.11 5GT .V117GT 0>1019GT ,W2iGT M023GT .M.125GT 00027GT 00050* 

7.1 >M.12 ,Y 1T 2M31GT *1,1. 553* 

8*1 .M052GT ,'1055* 
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RT-il 
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• StlUROUTINE SOLVE (NDIM # N,A,B,IPVT)' 

»XW.)2 


INTEGER NDIM,N, IPVT (N) 

*V»W3 

c 

COMPLEX A(NDIM,N),R(N),T 
SOLUTION OF LINEAR SYSTEM A*X«n 


c 

c 

00 NOT USE OF EECO'tp HAS DETECTED SINGULARITY 
INPUT.. 


c 

MUM a DECLARED RON DIMENSION OF .ARRAY CONTAINING 1 


c 

c 

N * ORDER OF MATRIX. 

A « TR I ANGULAR 17. ED MATRIX OBTAINED FROM DECOMP. 


c 

c 

R a RIGHT HAND SIDE VECTOR. 

I PVT » PIVOT VECTOR OBTAINED' FROM RECOUP 


c 

curpur. . 


c 

0 * SOLUTION VECTOR, X. 


0 

INTlXtl’R KR , KM 1 , MM 1 , KP 1 , 1 , K , M 
FOR.>'AKD ELIMINATION 



IF(N.IXM) GO TO 53 

MW7 


NMi*W-i 

MOOR 


DO CO 

00009 


KPi^lN+i 

OOOiO 


MalPVT(K) 

ouo 11 


T=U(N) 

00012 


»(M)»R(X) 

iiwn 


R(!\)»T 

000TO 


DO TO I=KP1,N 

00015 


R ( I ) a B ( I ) +A ( I , K) *T 

0001A 

Lvl 

CONTINUE 

00017 

20 

c 

CONTINUE 

HACK SUBSTITUTION 

00013 


DO MO X8»i,fWl 

00019' 


KMi=f>'-Kl3 

A’,’?,! 


K- (Mi+l . 

000?i 


M(K)=:MK)/A(K,K) 

»yoto 


T--U(K) 

00003 


DO .V I«i,!Mi 

00020 


'5(1 ) =H ( I )+A(t # K)*T 

000? 5 

2d 

CONTINUE 

OOOTO 

A s } 

continue 

00027 

f'J 

S(l)*R(i)/A(l,i) 

0002s 


RETURN 

0002? 


END 







irr-u 

A 

B 

I 

I PVT 
K 

KB 

;<-ii 

KPi 

\1 

M 

NDIM 

>Mi 

SCLVT 

T 

10 

20 

30 

40 

50 
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0000 i AG 
lV.1Jj.AG 
00024 s 
,:ooo4in 
0*10 <31 AG 
0.10041N 
.10,121 
030041!! 
OOO.UIN 
0.1 1.14 IM 
00 004 IN 
00 .101 AG 


nV 1 
000 xx 


00003CX 00015 
00.103CX 
00,027 s 
0,1 01 4’AO 
03002IN 
OOOOSDO 


00012 s J001> J^15» 0.1321 s 00022 


0002300 00024 
00010 00012 00013 


,10*11800 

00019 s 

00009 s 

00010 s 

•.'0002IM 

0.1O02IM 


OOOOIAG 
000.04 D! 00007= 
OOOOiSU 
00003CX 
.\M14fin 
OOOOODO 
0002303 


'00 1800 
.* ' i'V'. :’ 00027* 


,10.011= 

0001G* 

000,17* 

00025* 

000,24* 


.10015 
00010 
00009 

00024 ; , . 

00019 

00,020 01002300 

0001400 

00011 000x2 ,,,i jrv, <11*0 

00.103CX 00005IF 00,00 7 .Vvx4DO «r00x9 
0000 3CX 

000101X1 0001600 

00013 00015 00022 s 00024 


00,115 00020 s 



2U8 


Hmi pap 

§ii|^ m , 

1 1 i . a,;.'/. • Hh 1 * . *..... $ 11 h «mhmb4^ 
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